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INTRODUCTION 



This report contains the documentation for the Secure 
Archival Storage System hardware architecture, developmental 
monitor program, and all necessary support programs to 
effect programming of the firmware. The hardware 
architecture described in Appendix A provides the single 
hoard computer wire-wrap options and security modifications 
reauired to establish the hardware configuration. Appendix 3 
presents 

a command syntax tutorial for the monitor program and the 
program listing. The bootload program which comprises the 
current firmware is listed in Appendix C, with the support 
program and methodology for changing the firmware provided 
in Appendix E. The Bootstrap program, which loads and runs 
the SASS demonstration module, is presented in Appendix D. 

The bootload program (firmware) has been tested in a 
single processor environment. The monitor program is 
currently being tested and debugged, but is considered 
usable as presented herein. The bootstrap program has not 
been sufficiently tested and will reauire further 
development . 
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APPENDIX A - Hardware Architecture 



Presented in this appendix is an hardware resource 
desription meant to acquaint unfamiliar readers with the 
oasic architectural devices and organization referred to in 
this thesis effort. The information necessary to reproduce 
the same hardware architecture is also contained in this 
appendix. Hardware familiarization includes the Zilog Z8000 
microprocessor, the Zilog Z8010 Memory Management Unit 
(MMU), and the Advance Micro Computer Am96/4:116 MonoBoard 
Computer. What follows is then a detailed description of the 
SASS Developmental Airchitecture built as a part of this 
thesis effort, to support the implementation of the 
initialization design presented in this thesis, and to 
support follow on work in the SASS. The intent was to make 
this appendix the hardware reference manual in support of 
future research efforts. Readers requiring more specific 
information on the hardware are referred to the appropriate 
literature listed in the references. 

A. ZILOG ZS000 MICROPROCESSOR 

The Z8000 is manufactured in two versions, the 48-pin 
Z8001 and the 40-pin Z8002, which differ only in the manner 
and range of memory addressing. Except for this feature, 
called memory segmentation, they are functionally identical. 
The Z8001 contains seven output lines for segment number 
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selection and one input line as a se,gment trap to support 
f^emory segnentat ion . Without segmentation, the Z800Z can 
address up to sii distinct, external memory spaces of 64K 
bytes each, while the segmented Z8001 can access 128 
addressable segments that are each 64K bytes in size. A 
total of 8 Megabytes can be addressed in this way with 
segmentation. 

The CPU operates in one of two domains: system or normal 
mode. In the system mode all features of the processor are 
available to the running program, while in the normal mode 
the running program is isolated from potentially dangerous 
activities, such as instructions for basic I/O and changing 
system parameters. 

Multiprogramming is supported by the concommitant 
Test-and-Set instruction and hardware context switching. 
Test-and-3et instructions allow single or block memory 
transactions without interruption, thus accommodating 
conventional spin-lock synchronization and concurrent 
read/write access to shared memory in a single processor 
environment. Changing the running environment or context of 
a process requires the reloading cf the execution point 
which is defined in the Z8000 by two unique registers, the 
Program Counter (PC) and the Flag-and Control Word (FCW). 
The PC holds the address of the next instruction to be 
executed and the FCW contains the mode in which it is to be 
executed. Multiprocessing is facilitated by a combination of 
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instruction and hardware features. Bus control si,?nals 
(EITSR50 and BUSAK pins) arbitrate the use of the multiplexed 
address and data bus by external devices, i.e. a DMA or disk 
controller. The Multi-Micro control signals (Micro-In and 
Micro-Out lines) when used in conjunction with certain 
special purpose instructions, allow a more general form of 
resource sharing amoung multiple processors. 

In addition to the above required attributes, the Z8000 
offers several very flexible architectural features that can 
be classified as: CPU control and status, register 
structure, and addressing modes. 

1. Register Structure 

The ZS000 CPU is a register-oriented machine that 
provides a regular register structure for manipulating bytes 
(8-bits), words (16-bits), and long-word (32-bits) values. 
The instruction set provides for bit and nibble (4-bit) 
access to the various register contents. The sixteen 16-bit 
registers in the architecture can be referenced as sixteen 
8-bit, sixteen 16-bit, eight 32-bit, or four quad-word 
64-bit registers. All word or long-word registers (with the 
exception of ?.0 and P.P0 ) may be used as general purpose 
stack registers and manipulated with the PUSH and POP 
instructions. The R15 and RR14 registers are the stack 
pointers used by the Z8002 and Z8001 respectfully, when 
executing CALL and RETurn instructions, and when processing 
interrupts and traps. Figure A-1 shows the register 
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structure of the Z8O02 processors. The Z8001 requires a R14' 
register for segmentation. 

Additional special registers also comprise the 
register architecture. As described previously, the 
execution point of a process is contained in two unique 
registers, the Program Counter (PC) and the Plag-and Control 
Word (FCW). The high byte of the FCW sets the mode of 
operation of the processor by selecting normal/system, 
segmented/non-segmented , and by enabling or disabling 
vectored interrupts (VI) and non-vectored interrupt (NVI), 
The lower byte of the FCW contains flags that may be used by 
any program to make conditional jumps or other control 
decisions affecting program flow of control. These flags are 
set or reset depending on the results of preceding 
instructions. Figure A-2 illustrates the organization of the 
program status registers- 

Exception processing is directed through the use of 
another special register, the Program Status Area Pointer 
'PSA?). At initialization a table in memory must be 
allocated which contains all the FCW and PC values needed 
for each of the possible internal (traps) and external 
(interrupts) events. The organization of this Program Status 
Area pointed to by the PSAP is shown in Figure A-3. 
Interrupts are external asynchronous events requiring CPU 
attention, generally by external devices. Traps are 
synchronous events resulting from the execution of certain 
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instructions. Both are processed in a similar manner hy the 
CPU. The processor supports three tyoes of interrupts: 
non-maskable, vectored and non-vectored ; and four system 
traps: system call, unimplemented instruction, privileged 
instruction and segmentation trap. The vectored and 
non-vectored interrupts are internally maskable within the 
CPU. When an exception occurs, the current program status is 
automatically pushed onto the system stack. The program 
status in this instance refers to the processor status (PC 
and PCW ) and a 16-bit identifier containing the reason or 
source of the exception. 

The last special register in the register structure 
is the REFRESH register, which is designed to provide 
dynamic memory refreshing on an estimated demand' basis. The 
upper byte is loaded with a refresh rate count and bit-15 is 
set to enable the memory refresh activity. 

2. CPU Control and Status 

The Z8000 CPU incorporates three control input lines 
and four status output lines. Input control lines change CPU 
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with the contents of memory location 0002 and load the 
contents of location 0004 into the PC. In the case of the 
segmented Z6001 , location 0004 contains the PC segment 
number and 0036 contains the offset within the segment. In 
either case, after loading of the initialized system 
execution point, the following first instruction fetch (IFl) 
starts the CPU running. This first PC must, of course, point 
into executable code, typically in firmware. 

For special purposes , external devices can control 
the execution of the CPU by activating the STOP control 
line. This freezes the next instruction without loss of 
memory refresh as occurs with bus requests. This control 
line can be used to synchronize the interactions of a Z8000 
and extended-processor units (EPU's), which can, for example 
perform floating point operations. 

The WAIT signal input will allow slower external 
devices to stretch the number of clock cycles between the 
address strobe (AS) and data strobe (DS) within a machine 
cycle, for as long as necessary to receive or assemble the 
data. In this way, a 16-bit address directs a 16-bit data 
transfer that is essentially independent of the processor's 
clock and is thus asynchronous. 

Internal CPU status indications can be obtained by 
decoding the four output status lines from the processor. 
Figure A-4 lists the decoded signals. Decoded status, for 
example can be used to segregate program, data and stack 
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memory areas. Vhen used in conjunction with the 
rormal/system output line from the CPU, six distinct 
physical memory regions can be formed: normal program, data, 
and stack; and system program, data, and stack. The four 
status output lines allow the CPU many flexible control 
options over external devices. 

3. Adressing Modes 

The addressing mode of a Z8000 instruction defines, 
either explicitly or implicitly, the address space it 
references and the method used to compute the address 
itself. In general, an addressing mode explicitly specifies 
either register address space or memory address space. 
Program memory address space and I/O address spaces are 
usually implied by the instruction. Data may be addressed in 
eight basic modes: Register (R), Immediate (IM), Direct 
Address (DA), Indirect Register (IR), Indexed (X), Relative 
Address (RA), Based Address (BA) and Base Indexed (BX). 

In the Immediate mode (IM), the data is part of an 
instruction itself; in the Register mode (R), the register 
to which the operand is to be written into or read from is 
specified. The address of the operand is carried directly 
with the instruction in the Direct Adressing mode (DA). The 
IM, R and DA modes all require that the operand's address be 
static or known at compile time, before the program is run. 
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The remaining address modes allow dynamic or runtime 
computation of addresses and/or displacements in registers. 
The Indirect Register mode assumes the address of the 
operand to he placed at runtime in the specified register 
contained in the instruction; the Indexed mode allows a 
program to calculated a displacement from a fixed base 
address. This is more commonly used for indexing fixed 
tables. The Base Address mode is a reflection of the indexed 
mode in that the base address rather than the displacement 
is calculated at runtime. A common use of this mode is for 
accessing identical portions of different instances of a 
data structure. The Base Indexed mode combines the base 
address and indexed modes to allow the creation of fully 
relocatable, reentrant code (relocatable specifies that the 
code may be moved to any location in memory, and reentrant 
means that the code does not modify itself). The final 
addressing mode is the Relative mode, inwhich the PC is 
always used as the base address, combined with the specified 
displacement contained in the instruction, to determine the 
absolute address. 

B. ZILOG Z8010 MEf^ORT MANAGEMENT UNIT 

In the segmented Z8001 processor, the addresses actually 
manipulated are logical two-dimensional addresses consisting 
of a 7-blt segment number and a 16-bit offset within the 
segment. The Zilog Z8010 Memory Management Unit (MMU) takes 
the 23-bit logical addresses from the CPU and transforms 
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them into 24-bit absolute addresses for addressing physical 
memory[22]. This address transformation process is called 
relocation. k translation table of registers in the MMU 
associates the 7-bit segment number (SN) with the base 
address of one of 64 diferent physical memory segments. The 
16-bit offset is added to the physical base address to 
obtain the actual physical address. Figure A-5 illustrates 
the relocation process. The base address register file may 
be dynamically reloaded as processes are created, suspended 
or changed. 

The MMU also provides segment protection and memory 
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protection (viz. read/write access, normal/system mode only) 
and memory management data (viz. whether changed or 
referenced ) . 

MMU defined segments are variable in size ranging from 
256 bytes to 64K bytes in increments of 256 bytes. Pairs of 
64-segment MMU's are necessary to support the 128 segment 
numbers available from segment number line decodings. 

C. AMD Am96/4116 MOMOBOARD COMPUTER 

A major factor in the selection of the Zilog Z8000 
family of microprocessors was the commercial availability of 
the Advanced Micro Devices (AMD) Am96/4116 MonoBoard 
Computer (MBC). The MBC is a complete microcomputer system 
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on one 12.0 by 6.75 inch printed, multi-layered circuit 
board. The fIBC version available at the outset of the SASS 
project contains a 5Mhz Z9002 non-se(£:mented processor, 32K 
bytes of random-access memory (RAM), up to 8K bytes of 
electronically programmable read-only memory (EPROM), 
programmable serial and parallel I/O interfaces, a real-time 
clock and counter system, a programmable interrupt 
controller, and five edge connectors providing bus and 
peripheral interface capability [23]. Figure A-6 depicts the 
MEC architecture in block diagram form. 

Multibus interfacing is through standard edge connector 
?1 , which supports 20-bit addressing, eight bus interrupt 
lines, and bus arbitration and timing lines. The Am9551 
serial I/O components interface offboard to peripheral 
devices through edge connectors P4 and P5. Serial port 1 
fP5) supports all interconnections of a standard RS232C 
interface, while serial port 2 (P4) does not support 
synchronous handshaking capabilities. Edge connector P3 
interfaces the three 8-bit parallel ports (A,3,C), from the 
Am8255A parallel I/O integrated circuit. All of the inputs 
and outputs of the Am9513 Timing Controller chip are 
available through edge connector P2. 

Included on the Am96/4116 is a 32 source interrupt 
jumper matrix for input to any of the eight interrupt inputs 
'IRO0 - IRQ?) of the Am8259A Interrupt Controller. The 
Jumper matrix contains bi-directional Multibus interrupt 
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interfacing (INT0* - INT7'>') for external device interrupt 
communications; two parallel port (C) single bit sources for 
use as software generated interrupts; receive and transmit 
ready signals from the two serial I/O components for 
asynchronous communications with peripheral devices; five 
timer or counter output signals from the Am9513 IC; and 
several sources from the onboard fault detection circuitry. 
All interrupt sources are available as a Z8000 non-vec to red 
interrupt or non-maskable Interrupt as well, through the 
interrupt jumper matrix. 

The Am6255A parallel I/O component provides three 8-bit 
parallel ports, one of which (C) can be used to program 
under software control, the function of the other two ports 
''A and B). In addition, a 4-bit portion of port C can be 
used as a Multibus address source for the higher address 
bits (AD10-AD13), under program control. The significance of 
this will be seen later on. Two bits of the C port, as 
mentioned previously, also serve as signal sources for 
software generated interrupts. 

The onboard dynamic RAM (32K bytes) is dual ported, with 
Multibus access controlled by an onboard control logic. This 
capability is designed for a multi-processor environment 
where maximum flexibility of available physical memory is 
desired; however, the SASS design goal of memory 
segmentation cannot tolerate a single RAM memory space 
having two addresses and thereby requiring particular care 



23 



to disable this option. Th 
4, nr 8K byte read-only memo 
ROM is shadowed over existin 
The ROM can support the syst 

Provided on the MBC is 
contains five Counter Logic 
general counter with assoc 
16-bit Load register, a 16- 
Mode register [20] . In addi 
include 16-bit comparator 
Mode Register is used to c 
options available with its a 
The Load register is used to 
the general counter, whil 
store accumulated counter va 
host processor. The Alarm a 
to detect and signal specifi 
Each of the counter groups 
cascaded, count-down or c 
nongated count sources. Each 
the Interrupt jumper matr 
offboard applications. 

CPU onboard accessing 
accomplished through a dec 
in the Z8000 IN/OUT instruc 



e MBC can support an optional 2, 
ry (ROM) in a shadow mode? the 
g memory space by CPU direction, 
em firmware. 

an Am9513 Timing Controller that 
Groups consisting of a 16-bit 
iated control and output logic, a 
bit Hold register and a 16-bit 
tion, counter groups 1 and 2 also 
and Alarm registers. The Counter 
ontrol all of the individual 
ssociated general counter group. 

control the effective length of 
e the Hold register is used to 
lues for later transfer to the 
nd comparator registers are used 
c values in the general counter. 

can serve as independent or 
ount-up counters with gated or 
provides an output signal to 
ix and the P2 edge connector for 

individual IC's is 
the addresses contained 
components are enabled 
components must be 



of the 
oding of 
tions; 

appropriately. All programmable 



24 



initialized to some consistent state as the first step in 
any initialization mechanism. 

D. DEVELOPMENTAL SYSTEM 

As stated previously, the primary feature desired in the 
SASS Developmental Architecture (SDA) is the external hus. 
To acheive this, the Am96/4116 Monoboard must replace the 
Ziloi? Z8000 Development Module (DM) which has previously 
been the platform for SASS development. Figure A-7 shows the 
end product after the substitution. The remaining 
developmental components from the original system consist of 
the Zilog MCZ-1/05 Microcomputer System (MCZ) and a CRT 
terminal. A firmware monitor program for the MonoBoard was 
needed to affect the substitution. The firmware will be 
discussed under the SDA to follow. 

1. The Zilog MCZ-1/05 Microcomputer System 

The MCZ-1/05 Microcomputer System is a disk-based 
microcomputer unit, utilizing the Z80 family of 
microcomputer cards. The basic system includes two boards: a 
Z80 microcomputer board (MCB) for performing primary system 
control, and a Z80 memory disk controller (MDC) for 
interfacing the dual floppy disk drive. These two cards 
constitute the basic MCZ system, that provides 60K bytes of 
RAM memory, 3K bytes of firmware, control of the disk drive 
module, and communications with the Z8000 MBC through an 
asynchronous serial RS-232 interface. 
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Supporting software consists of a full-disk: 
operating system (RIO), which includes a macroassembler, 
linker, text editor, and file utility. Details concerning 
the MCZ hardware or software can be found in the listed 
references. The macroassembler provides for assembling 
relocatable object modules from PLZ/ASM language source code 

entered with the PIO text editor. Higher level language 

• 

support, as PLZ/SYS, is currently not available for 
developmental use. Subsequently relocatable modules can be 
linked together with the Linker and core images located with 
the Imager. Object files are then downloaded into the MBC 
memory for executing and debugging. The ability to upload 
from the MBC memory into the RIO file structure is also 
available. 

User communication with the RIO operating system is 
via the development terminal, through the Am96/4116 
MoncBoard. The MBC developmental monitor provides for three 
modes of operation: 1) the Monitor Mode, which is used to 
enter, debug and execute software residing in MBC RAM? 2) 
the Transparent Mode, which is used to transmit data between 
the development terminal and the MCZ system* and 3) the 
Upload/Download Mode, used for transferring object files 
between MBC memory and the MCZ microcomputer system. 
Offboard Am96/4116 MonoBoard communications with the MCZ 
system and the development terminal is asynchronous through 
the two MBC serial ports as designated in Figure A-7. 
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2. Atn96/4116 Conf ii^uration 

The commercial MonoBoard provides wire-wrap options 
for confii?urin^ the MBC for specific applications. The 
options available include primary memory addressing (both 
onboard and offboard), in terrupt/trap source selection, and 
various device configuration settings. An appropriate 
wire-wrap configuration for each of these areas was defined 
from requirement consideration of the SASS and the 
developmental system. Figure A-8 lists the finalized 
MonoBoard wire-wrap configuration. This configuration 
results in the following interrupt utilization in the SASS 
Developmental Architecture: 
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Interrupt handler routines when assigned in this manner, are 
supported by this wire-wrap configuration. 

For compatability with the Am96/4:116 RAM Memory 
Board, address bits ADF and AD10 for offboard addressing 
were switched. Address bit ADF uses the buffered 
Normal/System CPU signal as its source. When the secondary 
storage device (i.e., hard disk) is installed, offboard 
address bit ADll should be sourced to the instruction fetch 
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signal d-FETCH=«') signal 
38-39. This will allow code 
two memory boards, and da 
the other. 

3. Am96/4116 Modificati 

Global memory pa 
accomplished by making use 
signal for offboard addresse 
memory is more difficult. Us 
gates and wiring modificati 
desired segregation. In the 
a portion of local memory 



by connections of nins 68-69 and 
execution only from one of the 
ta fetches in two domains within 

domains is 
Normal /Sys tern 
onboard local 
nboard logic 
0 achieve the 
simulation , 
in the system 
contained in 
ity the design 
equally divide 
the lower half 
and the upper 
and system 
th table was 



ons 

rtitioning by 
of the processor's 
s. Partitioning of 
e of available o 
ons were reouired t 
SASS design for MMU 
must be accessible 

mode only, thereby protecting the information 
this area (i.e., the Kernel). For simplic 
choice was made to use the address bit ABS to 
the local memory space. The desire is to make 
(0000-3FF7) accessible in the system mode only 
half (4000-7FFF) accessible in both the normal 
mode. Given those two signals, the following tru 
derived : 
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POWEPUP PESST/INIT 




ONBOARD RAM SELECT 


Pin 190 - 191 




Pin 193 - 194 






■0000-7FFF) 


BUS CLOCK SELECT 




GLOBAL MEMORY SELECT 


Pin 19 - 20 




Pin 36 - 63 (ADF-AD10) 






62 - 37 (N/S-ADF) 


DAISEY-CHAIN BUS PRIORITY 


65 - 66 (N/S) 


Pin. 184 - 185 'no chain) 




21 - 22 




PROM SELECTION (2716) 






Pin 25 - 27 


SERIAL PORTS 4 & 5 




28 - 30 


Pin 132 - 133 (RTSl- 


■CTSl ) 


177 - 178 


139 - 140 (9600 


BAUD ) 


174 - 176 


141 - 143 '9600 


BAUD) 


71 - 72 


179 - 180 (CTS2- 


•CND) 






OTHER 




Pin 33 - 34 




Pin 136 - 137 


38 - 39 




148 - 162 


40 - 41 




151 - 150 


42 - 43 




153 - 154 


128 - 130 


163 - 164 




INTERRUPTS 




Vectored Interruots: 






(3STP?) Pin 130 - 115 


( IRE06) 


"Next" command 


(0UT2) 114 - 117 


( IRE05) 


Real time clock 


(RXR2) 100 - 127 


( IREO0) 


Console Interrupt 


(EXRl) 131 - 123 


( IRE02) 


MCZ Sys Interrupt 


(0UT4) 116 - 95 


(I NT4=«') 


Multibus Preempt 


(OUTS) 112 - 121 


( IRE03) 


Onboard Preempt 


(Spec Mod) * - 113 


( I RE07 ) 


Memory Violation 


Non-Maskahle Interrupts: 






(INT1«) Pin 79 - 128 


(NMI ) 


(Timeout) 


157 - 171 


(NMI ) 


(Oddwcrd ) 


158 - 172 


(NMI ) 


Non-Vectored Interrupt: 






aNT4«) Pin 95 - 129 


(NVI ) 


Hardware Preempt 


Am96/4116 


MBC Wire-Wrap Options 


FI CURE A-e 
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NORMAL 



N/S* 


ADE 


''N/S* 


''ade 




NAND 


1 


1 


0 


0 




1 


1 


0 


0 


1 




1 


0 


1 


1 


0 




1 


0 


0 


1 


1 




0 



SYSTEM 



Address Bit Truth Table 



Figure A-9 



The NAND signal becomes the new ABE bit. 

A search of available onboard logic gates produced 
the necessary components to construct the circuitry, and 
solder connections were made as shown: 



Unit21 Unit34 




74S240 74S00 

(NOT) (NAND) 



wire: Pin66 


to 


P6U21 


P14D21 


to 


P5U34 


P16U66 


to 


P4U21 


P16U21 


to 


P4U34 


P6U34 


to 


P13U66 


cut: P16U68 


to 


P13U66 


Address Bit 


Modification 


Figure 


A-10 
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The above modification produced the desired 
security, however addressing in the normal mode below 4000 
HEX produced some undesirable effects. For instance, a write 
to address 2000 HEX would actually write to address 6000 
HEX, unknown to the user. Another design decision was made 
to prevent this occurence by providing an interrupt source 
from this circuitry. The following logic generated the 
interrupt: 



ABE 


''ABE 


'NAND ' 


+ 


'AND' 


1 


0 


1 




0 


0 


1 


1 




1 


1 


0 


0 




0 


0 


1 


0 




0 



Interrupt Truth Table 
Figure A-11 



However, precautions must be taken to nr 
generation of this interrupt when addressing glo 
from 8000-0000 HEX. The address bit ABF wa 
erable/disable interrupt generation in the 
circuitry: 



eclude the 
bal memory 
s used to 
following 
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U10 




74S240 74S244 74S244 

(NOT) 

Interrupt Modification 
Figure A-12 

The additional drivers are supplied to the ABF signal for 
timing considerations. With this circuitry an interrupt 
(INT7) is generated only when an access to low local memory 
(0000-3FFF) is made in the normal mode. 

4. Am96/1064 Memory Board Configuration 

The Am96/1064 is a single board dynamic random 
access memory system with 64K bytes of addressable memory 
and onboard control and refresh logic for maintaining stored 
data. It is Multibus compatible with a AlSnsec access time. 
Normal installation procedures were adhered to with the 
following execeptions. On one of two such boards in the 
system, bus address comparator (Ulll) is allowed to pass 



for selection of 



addr 


ess bi 


t ADI 


one 


of two 


plan 


the 


norma 


1 mo 


mode 


• 






As 


ment 


St or 


age d 


evice 


adde 


d and 


the i 


the 


source 


for 


ment 


ioned 


abov 


conn 


ection 


s 60- 


this 


bit 


pull 


pr ov 


ides 


the 


modi 


f icati 


ons a 


C. 


SUMMARY 




This 


sect 


architectu 


re of 


in te 


nt was 


to p 


background 


to 


reco 


ns true 


t the 


In 


answer 


to 


read 


er is 


enc ou 



0 (N/S*) to onboard logic 
es of 32£ bytes of memory. One addressable in 
de and the other addressable in the system 

ioned earlier, when a suitable secondary 
is installed the second memory board can be 
nstruction fetch signal (I-FETCH’*') can become 
address bit ADll. For the memory board 
e, address bit ADll will be forced high (Pin 
59 removed) and the second board will have 
ed low (I-FETCH*^) on the comparator. This 
read-only function. No additional wiring 
re required. 

ion provided a brief tutorial into the 
the Z8000 family of microprocessors. The 
rovide the reader with the necessary hardware 
understand the content of this thesis, and to 
hardware architecture used in this effort, 
any additional questions that may arise, the 
raged to consult the referenced literature. 
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APPENDIX B - Developmental Monitor Program Listing 



The developmental monitor program is 
appendix in two parts, the command syntax 
program listing. The command syntax d 
complete users manual for the monitor progr 
listing contains the eight program modules 
PLZ/ASM program listing. The somewhat uns 
appearance stems from the reouirement 
organizational structure of certain requi 
particular the MC2 system communicatio 
conscious effort was made to preserve the 
syntax . 

A. COMMAND SYNTAX 

The developmental monitor consists of 
four performing normal development function 
setting of processor memory and registers 
for debugging of user programs? 
upload/download capability with the MCZ 
command for entering a transparent mode of 
the MCZ system and the user console, 
description is presented for each comm 
representations adhere to the following con 



pres en ted 


in 


thi s 


de 


script i 


on 


and 


esc 


ripti on 




s a 


am. 


The 


program 


the 


t compr 


i se 


the 


tru 


c tured 


program 


to 


ma i n t a 


in 


the 


red 


f uncti 


ons 


, in 


n 


pr ot oc 


ol . 


A 


or 


iginal 


command 



elev 


en 


command 


5 : 


s fo 


r di 


splay a 


nd 


; fo 


ur 0 


perati 0 


ns 


two 




pro vidi 


ng 


system 


; and 0 


ne 


oper 


at io 


n betwe 


en 


A 


command li 


ne 


and . 


Command li 


ne 


vent 


ions 


• 

• 
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(1) the use of an^le hraclcets <> denotes a required entry, 

[2) the use of square bractcets [] denotes an optional entry. 

The command lines serve as a ready reference for command 
syntax familiarization in the following descriptions. 

1. DISPLAY Command 

D[isplay] <adr> [no. words] 

The display command can he used to perform two 
operations: the display of a block of memory in word format 
(16-bits), and to display the contents of a single address 
with the option to change the contents. Use of the command 
with a starting HEX address, followed by a hexadecimal 
number indicating the number of words desired, will display 
the contents of a block of memory. Use of the command 
followed by a single address enters a substitution mode. The 
contents of the single address will be displayed on the 
console followed by a prompt (*) indicating to the user that 
he has three options: (1) entering a new value will change 
the contents of that location, (2) entering a carriage 
return <CR> sequentially steps through memory leaving the 
contents unchanged, and (3) entering a 'Q' will terminate 
the substitution mode of operation and return control to the 
monitor program. 
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2. REGISTER Command 



R[e,?ister] [register name] 

The register command displays the current contents 
of registers R0-R15, PC and FCW . Use of the command alone 
will display the current contents of all registers and 
return to the monitor. Use of the optional register name 
will enter a substitution mode as described above, and 
proceed sequentially until either a 'Q' is entered or all 
registers have been displayed. Control is then returned to 
the monitor. 

3. MOVE Command 

M[ovel <old adr> <new adr> <no. bytes> 

The move command moves the contents of the specified 
block of memory to a new location, without altering the 
contents of the old locations. The old address and number of 
bytes specifies the block to be moved? and the new address 
specifies the new starting address. 

4. FILL Command 

F[ill] <start adr> <end adr> <data> 

The fill command changes the memory contents 
inclusively from the specified starting address to the 
ending address, with the user supplied hexidecimal data. 
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5. GO Command 



G[ol 

The go command starts user program execution at the 
execution point defined hy previously user set PC and FCW 
registers • 

6. JUMP Command 

J [umpl <start adr> 

The jump command starts execution of a user's 
program from the address specified, using the current FCW 
register value. 

7. BREAK Command 

B[reak] [address] [no. breaks] 

The break command is used to set a break point 
within a user's program. When the break point is encountered 
during normal execution of the user program, execution is 
terminated, user registers and program status is saved, and 
the message 'BREAK AT <address>' is sent to the console. Use 
of the break command alone will clear any set break points. 
User has the option of specifying the number of times that 
the break point must be encountered before program execution 
is terminated; the default value is 1. 
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8. NEXT Command 



N[ext] [no. instructions] 

The next command is used to sin,?le step through the 
execution of a user's program. The contents of the CPU 
registers after each instruction execution are displayed to 
the user. Multiple instruction executions can be optionally 
entered by the user; the default value is 1. 

9. QUIT Command 
0 [uit] 

Use of the quit command places the MonoBoard in a 
transparent mode where it performs as a communication relay 
between the MCZ RIC operating system and the user console. 
To the user the appearance is complete operation within the 
MCZ system. To exit the transparent mode, the Non-Maskable 
Interrupt (INTR switch) must be given, which saves user 
registers and returns control to the monitor. 

10. LOAD Command 

L[oad] <filename> [load adr] 

The load command downloads program files from the 
MCZ RIO file structure into the Z8000 system for execution. 
The load address can be optionally specified; default is to 
the load address passed with the file from RIC. After a 
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successful download operation, the messai^e 'ENTRY POINT 
<address>' is sent to the console showing the load address 
used . 



11. SEND Command 



S [end] 



<filename> <start adr> <end 



adr> [entry adr] 



The send command is used to save the contents of a 
specified block of Z8000 memory within the RIO file system. 
The optional entry address becomes the default load address 
for downloading with the load command; otherwise the start 
address becomes the default address. 



12. Alerts 

Within the hardware architecture are certain 
interrupts that require user notification on occurrence. The 
following is a list of the current interrupt messages: 



'NMI ' 




Results from a Non-Maskable 
interrupt generation by 
depression of INTR switch. 


'ILLEGAL 


MEMORY REESRENCE' 


Results from illegal 
memory reference in 
normal mode. 


'UNKNOWN 


TRAP' 


Results from interrupt/trap 
not currently used in the 
architecture . 



What follows in the next section is an annotated 
source listing for the monitor program. 
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B. MONITOR PROGRAM LISTING 



1. executi;e module 



Z800OASM 2.02 

LOG OBJ CODE STMT SOURCE STATEMENT 



1 EXSC_DMONITOR MODULE 
$LISTON $TTY 



CONSTANT 

RXR 

TXR 

PAR 

PORTAD 

PORTBD 

PORTAC 

PORTBC 

IDPOET 

ICPORT 



:= 2 
:= 0 
:= 7 

:= %FFD9 
:= %FFE1 
:= %FFDB 
:= %FFE3 

:= %FFCB 
:= %FFC9 



TCMD := %FFD2 

TDTA ;= %FFD0 



BUS LOCK :=%FFF9 


BUS UNLOCK : 


=%FFF9 


VINTR 


‘SC 2)0001000000000000 


VIBIT 


12 


ESCAPE 


%1B 


BS 


%08 


LINDEL 


%7F 


CR : = 


%0D 


LF : = 


%0A 


TXOFCH := 


%13 


TXONCH 


%11 


INSIZ := 


123 ! INTBUF SIZE 


OUTSIZ := 


128 ! OUTBUF SIZE 


RBSIZ : = 


256 ! RING BUFFER 


BIT POSITIONS 


IN MONITOR FLAG WORD ! 


TRPMDE 


0 


ISTOP 


1 


OSTOP := 


2 


SNDMDE 


3 



LDMDE 

ESC 

TXMSK 



4 

5 

%6 



j 

j 

SIZE ! 
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COMDS 



11 



TYPE 

SWITCH RECORD [ ECW 

PC 



INTERNAL 

$SECTICN DATA_DEC 
$ABS 0 



0000 


INTBUF 


ARRAY 


’128 BYTE] 


0080 


0UT5UE 


ARRAY 


'128 BYTE] 


0100 


RNGBUF 


ARRAY 


;256 BYTE] 


0200 


MCZBUF 


ARRAY 


;256 BYTE] 


0300 


BUFADR 


WORD 


0302 


BUFSIZ 


WORD 


0304 


INTPTR 


WORD 


0306 


OUTPTR 


WORD 


0308 


UNIMP 


WORD 


030A 


BRKCNT 


WORD 


030C 


NXTPTR 


WORD 


030E 


GETOUT 


WORD 


0310 


MCZPUT 


WORD 


0312 


MCZGET 


WORD 


0314 


BRKSTR 


WORD 


0316 


BRKADR 


WORD 


0318 


TMPSP 


WORD 


031A 


TMPFCW 


WORD 


031C 


MFLAGS 


WORD 




! USER REGISTER STORAGE ! 


031E 


R0 


WORD 


0320 


Rl" 


WORD 


0322 


R2 


WORD 


0324 


R3 


WORD 


0326 


R4 


WORD 


0328 


R5 


WORD 


032A 


R6 


WORD 


032C 


R7" 


WORD 


032E 


R8 


WORD 


0330 


R9 


WORD 


0332 


R10 


WORD 


0334 


Rll 


WORD 


0336 


R12 


WORD 



WORD 
WORD 1 



4:2 



0338 


R13 


WORD 


033A 


R14 


WORD 


033C 


R15 


WORD 


033E 


RPC 


WORD 


0340 


RFC_ 


WORD 


0342 


RETRY 


WORD 


0344 


ADR STR 


WORD 


0346 


CMDTBL 


ARRAY [12 



00?0 



INTERNAL 

$SECTION PSA DATA 
$ABS 0 

PSA RECORD [ 

DATA_AREA WORD 

CODE_ARSA rfORD 

UNIMP INST SWITCH 

PRIV_TnST SWITCH 

SYSTEM_CALL SWITCH 

SEC TRAP SWITCH 

NMI"INT SWITCH 

NVI I NT SWITCH 



VEC_FCW WORD 

VEC PC ARRAY [200 

1 ■ 



INTERNAL 

$SECTION BOOT_DATA 
$ABS 0 

0000 BOOT_COM RECORD [ 

TABLE_LOCK WORD 
SIGNAL WORD 

MSGl WORD 1 



$SECTION EXEC_PROC 
EXTERNAL 



GETLNE 

NMI 

IMPINT 

SNDCHR 

SNDMSG 

MEMINT 

EAIL_SAEE 

CLK_STORE 

MCZHND 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 



CONINT PROCEDURE 
DISPLAY PROCEDURE 
GET3UF PROCEDURE 



FILL PROCEDURE 



WORD] 
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?00C 



0000 

0002 

0004 

0005 

0006 
0008 
000A 
000C 
000E 
0010 
0012 
0013 



0014 

0016 

0018 

001A 

001C 

001E 



MOVE PROCEDURE 



REGISTER 

GO 

BRE.i'K 

JUMP 

NEXT 

QUIT 



PROCEDURE 

LABEL 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 



SEND PROCEDURE 

LOADED PROCEDURE 

GETCHR PROCEDURE 



GLOBAL EROR LABEL 
GLOBAL EXEC LABEL 
GLOBAL INITL PROCEDURE 

« DMONITOR INITIALIZATION * 

9^ #3(:3;e :(c3ic9t! 9^ ! 



ENTRY 

ORGADR: 



E80F 


JR 


STARTP 




PEYS ID: 




FlFl 


WVAL 


%F1F1 




LOGO: 




0F 


BVAL 


%0F 


2A 


BVAL 




5341 


WVAL 


'S A' 


5353 


WVAL 


'SS ' 


2044 


WVAL 


' D' 


4D4F 


WVAL 


'MO' 


4E49 


WVAL 


'NI' 


544F 


WVAL 


'TO' 


52 


BVAL 


'R' 


0D 


BVAL 


%0D 




CMDCER: 




4446 


WVAL 


'DF' 


4D52 


WVAL 


'MR' 


514C 


WVAL 


'OL' 


4A4E 


WVAL 


'JN' 


4753 


WVAL 


'GS ' 


4220 


WVAL 


'B ' 



! UNIQUE PEYS ID ! 
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f START OF INITIAL ENTRY TO DMONITOR ! 
START?: 

f ?JS5[s a;s5{i5js sjc ^sjcs^: 5{c sis sjtsjs slsajcali sjs 5{s sjs sjssjs sjs 



* RESET CODE_AEEA AND DATA_1RSA REGS 

ateairafe afcsic 5!£at2*s2ir sfffifs i!sa!s a'x A ^ si its sis!ti!i si si si si aisfesJssi iltsisisiatsstc 



sis 







! RESET DATA 


AREA AND CODE AREA 


REGISTERS ! 


0020 


7D25 


LDCTL 


~R2,PSAP0FF 






0022 


612E 


LD 


R14,DATA_AREA:R2) 






0024 


0000 










0026 


8DE4 


TEST 


R14 






0028 


EE02 


JR 


NZ,SET OTHERS 






002A 


210E 


LD 


R14,#%7A00 






002C 


7A00 


SET OTHERS: 








?02E 


340C 


LDAH 


R12.0RGADR 






0030 


FFCS 










0032 


6F2C 


LD 


C0DE_AREA(R2) ,R12 


! SAVE 


NSW CODE 


0034 


0002 






r BASE 


ADR ! 


0036 


6F2E 


LD 


DATA_AREA(R2) ,R14 






0038 


0000 











I stsa^isisatisisslis^slcal^aieslcalcsjes^slcalcaicslcxtalcalci^slealei^csl^al^atislcalcaltslsaicalca;^?!^:^?;:);;;',: 







^ SFTW 


INIT: INITIALIZES ALL BASIC * 








DATA STRUCTURES FOR THE - 






a* 

T* 


NORMAL FUNCTIONING OF * 






Sic 

SfC 


DMONITOF.. - 






s^csjcajcjjssjcsjcsls 


^ JU ^1# %iU Vi f 

^1% ^1% r|^ #1% >1^ #1^ ^1% ^1% «r|% ^1% 1 






! CLEAR 


DMONITOR RAM AREA ! 


003A 


76E2 


LDA 


R2 ,BUFADR (R14) ! CLR DMONITOR RAM 


003C 


0300 






003E 


A121 


LD 


R1 ,R2 


0040 


A911 


INC 


R1 ,#2 


0042 


2103 


LD 


R3,#66 


0044 


0042 






0046 


0D25 


LD 


0P2,#0 


0048 


0000 






004 A 


BB21 


LDIR 


0R1,0R2,R3 


004C 


0310 










! LD FIXED DATA IN RAM ! 


004E 


34E7 


LDA 


R7,P.14(#INTBUF) 


0050 


0000 






0052 


33 E7 


LD 


R14(#INTPTR) ,R7 


0054 


0304 







A5 



0056 


34E7 


LDA 


R7,R14(#0UTEUF) 


0058 


0080 






005 ‘ 


33E7 


LD 


R14(?#CUTPTR) ,R7 


005C 


0306 






005E 


34E3 


LDA 


R3,R14(#UNIMP) 


0060 


0308 






0062 


0D35 


LD 


GP3,<^%0E00 


0064 


0E00 






0066 


34E3 


LDA 


R3,R14(#BRKCNT) 


0068 


030 A 






006A 


4DE8 


CLR 


GETOUT (R14) 


006C 


030E 






006S 


4DE8 


CLR 


NXTPTR(R14) 


0070 


030C 
















* INITIALIZE PROGRAM STATUS AREA 

3jc >{c 5jc 3^ 5jc 5ji 5j« 5*^ i\i 3 ^ sjc ?|c ?;c ij: :{s 5|c :(c s}: s{« sfc : 


0072 


7D25 


LDCTL 


R2 .PSAPOFP 


0074 


76C4 


LDA 


R4,FAIL_SAEE(R12) 


0076 


0000* 






0078 


A923 


INC 


R2,#4 


007A 


2F24 


LD 


GR2,R4 


007C 


A123 


LD 


R3,R2 


007E 


A931 


INC 


R3,#2 ! FAILSAFE PSA ! 


0080 


2104 


LD 


R4,#24 


0082 


0018 






0084 


3B21 


LDIR 


GR3,GR2,R4 ! SETUP PSA ! 


0086 


0430 






0088 


7D25 


LDCTL 


R2,PSAPCFF 


008A 


2101 


LD 


HI ,#%4000 


008C 


4000 






008E 


3423 


LDA 


R3 ,R2(#UNIMP_INST) 


0090 


0004 






0092 


76C4 


LDA 


H4,IMPINT(R12) 


0094 


0000* 






0096 


3334 


LD 


R3(#2) ,R4 


0098 


0002 






009A 


8D48 


CLR 


R4 






DO 




009C 


7331 


LD 


R3 (R4) ,R1 


009E 


0400 






00A0 


A 943 


INC 


R4,#4 


00A2 


0B04 


CP 


R4,#28 


00A4 


001C 






00A6 


E601 


JR 


Z,LD_PC 
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00ft8 


E8F9 


OD 








LD_PC : 




00 ft A 


3423 


LDA 


R3,F2(#NMI_INT) ! LOAD NMI HDLH 


00AC 


0014 






00AE 


76C4 


LDA 


R4 ,NMI (R12) 


00B0 


0000=»= 






00B2 


3334 


LD 


R3(#2) ,R4 


00B4 


0002 












! SET INTERRUPT HANDLERS ! 


00B6 


3423 


LDA 


R3,R2(#VEC_PC) ! BASE OF INT VEC! 


00B8 


001E 






00BA 


34C2 


LDA 


R2,R12(##C0NINT) ICONS INPUT! 


00BC 


0000* 






00BE 


3332 


LD 


R3(#0) ,R2 


00C0 


0000 












! MCZ INPUT ! 


00C2 


34C2 


LDA 


R2,R12(#MCZHND ) 


00C4 


0000* 






00C6 


3332 


LD 


R3(#4) ,P2 


00C8 


0004 












! MEMORY ACCESS VIOLATION ! 


00CA 


34C2 


LDA 


R2,R12(#MEMINT } 


00CC 


0000* 






00CE 


3332 


LD 


R3(#14) ,R2 


00D0 


000E 












■»r ^ ^ ^ ^ ^ 'ir ^ 'I' ^ ^ «t* 'I** ^ W •n' "r 'i' A* 'i* 'r 








SET STACK POINTER ’='• 








00B2 


AIEF 


LD 


R15,R14 


00D4 


010F 


ADD 


P15,#%05F0 ! SET stack POINTER ! 


00D6 


05F0 






00D8 


6FEF 


LD 


R15_(R14) ,R15 


00DA 


033C 










1 5)c:(e){e5!!#5!t:|t 


•{« 3p 2^C 3f* SjS 3^ 3p #jC 3^ SjS 2^ 5^* SjC 3{C 3{C 5p 5|? 5p SjC S{C »p 3p 3p 5p 






=<= INITIALIZE COMMAND JUMP TABLE 






^ 3jC5^C 3jC 3|» «(C 3}C 3^ 5{C ^ 3{C 3jS 5js SjC SjS 3jS sjs 3^ ^ 3}C Sji 5yi f 






I 


INIT COMMAND JUMP TABLE ! 


00DC 


34E1 


LDA 


R1,R14(#CMDT3L) ! BASE ADR ! 


00DE 


0346 






00E0 


34C2 


LDA 


R2,R12(#DISPLAY) 


00E2 


0000* 






00E4 


3312 


LD 


R1(#0) ,R2 
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00E6 


00(^0 




00E8 


34C2 


LDA 


00EA 


0000’!= 




00EC 


3312 


LD 


00EE 


0002 




00F0 


34C2 


LDA 


00F2 


0000’!' 




00F4 


3312 


LD 


00F6 


0004 




00F8 


34C2 


LDA 


00FA 


0000« 




00FC 


3312 


LD 


00FE 


0006 




0100 


34C2 


LDA 


0102 


0000’!' 




0104 


3312 


LD 


0106 


0008 




0108 


34C2 


LDA 


010A 


0000# 




010C 


3312 


LD 


010E 


000A 




0110 


34C2 


LDA 


0112 


0000# 




0114 


3312 


LD 


0116 


000C 




0118 


34C2 


LDA 


011A 


0000# 




011C 


3312 


LD 


011E 


000E 




0120 


34C2 


LDA 


0122 


0000# 




0124 


3312 


LD 


0126 


0010 




0128 


34C2 


LDA 


012A 


0000# 




012C 


3312 


LD 


012E 


0012 




0130 


34C2 


LDA 


0132 


0000# 




0134 


3312 


LD 


0136 


0014 






! 


: DISPLAY 


0138 


3402 


LDAR 


013A 


FSC8 




013C 


34CA 


LDA 


013E 


0000’!' 




0140 


1FA0 


CALL 



P.2,P12(#FILL) 
Rl(#2) ,R2 
R2,R12(#M0VS) 
R1(#4),R2 
R2,R12(#RSGISTSR) 
Rl(#6) ,R2 
R2,R12{#0UIT) 
Rl(#a) ,R2 
R2,R12(#L0ADi’L) 
?1(#10) ,E2 • 
R2,R12(#JUMP) 
Rl(#12) ,R2 
?2,R12{#NEXT) 
Rl(#14) ,R2 
R2,R12(#G0) 
Rl(#16) ,R2 
R2,R12(#SEND) 
Rl(#18) ,R2 
R2,R12(#BREAK) 
Rl(#20) ,R2 

LOGO ! 

R2,L0G0 

R10,R12(#SNDMSG) 

0R10 
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! R12 = START OF CODE ! 

! R14 = START OF DATA AREA ! 
! R15 = STACK POINTER ! 



^ a«l# %f* m/ji “i** *V **« "V * 

V ^ v*> nr Of* 't' “n' *^r n^nr •'i' ^ n* nr 'o nr ^ ^ n' ^ ' 



» V' < 



1 ^ ^ . 



* BASIC CONTROL OF DMONITOR - 



EXEC ; 



0142 


340C 


LDAR 


R12,0RGADR 




0144 


FEBA 








0146 


7D15 


LDCTL 


R1 .PSAPOFF 




0148 


211E 


LD 


R14,0R1 




014A 


3401 


LDAR 


R1 ,SXEC 




014C 


FFF4 








014E 


93F1 


PUSH 


0R15,R1 




0150 


31E1 


LD 


P.l ,R14(#MFLACS) 


! CLR MON FLAGS 


0152 


031C 








0154 


0701 


AND 


R1,#TXMSK ! 


EXCEPT TX BIT ! 


0156 


0006 








0158 


33E1 


LD 


R14(#MFLAGS) ,R1 




015A 


031C 








015C 


7C05 


SI 


VI 




015E 


C82A 


LDB 


RL0,# 




0160 


76CA 


LDA 


R10,SNDCHR(R12 ) 


! CALR SUBSTIT ! 


0162 


0000=<‘ 








0164 


1FA0 


CALL 


0R10 




0166 


34CA 


LDA 


R10,R12(#GETLNE) 


! CALR SUBSTIT ! 


0166 


0000* 








016A 


1FA0 


CALL 


OR 10 










1 


GET CMD 1ST CHR ! 




! 


COMMAND 


LOOKUP ROUTINE ! 




016C 


3401 


LDAR 


Rl.CMDCHR ! 


BASS OF LKU? TBLE! 


016S 


FSA4 








0170 


BD2B 


LDK 


R2,#C0MDS ! 


TOTAL # CMDS ! 


0172 


BA14 


CPIR3 


RL0.0R1 ,R2,E0. 


! FIND CMD ! 


0174 


0286 








0176 


EE09 


JR 


NZ ,ER0R 


! CMD NOT FOUND 1 


0178 


3D1A 


LDK 


R1,#C0MDS - 1 ! 


DETERMINE INDEX ! 


017A 


8321 


SUB 


R1 ,R2 




017C 


E311 


SLL 


R1 ,#1 




017E 


0001 








0180 


34E2 


LDA 


R2,R14(#CMDTBL) 




0182 


0346 








0184 


8121 


ADD 


R1 ,R2 




0186 


2113 


LD 


R3,0R1 ! 


GET CMD ADR ! 


0188 


1S38 


JP 


0R3 ! 


GOTO CMD HDLR ! 



I 
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I ^ %iU O# V^ Vf ^V vi« %V %•.♦ V* %*# %9^ 0> 

I <jm ^1% ^1% ^1% #1% #|« #1^ ^1^ ^ #|4 ^ tf^% #1% #1% #1^ #^% •!<« ^p rp ^p rp 

* GLOBAL ERROR LABEL 

:|c j|S5jc j|i3;c>;t:4s>;c5;c:;:3;c :{<5f: 5}<3{« a;s5;t :;«3t; :{c ?r >r ^liJjc Jjcs^c ^c sj? >r 5p sj^ f 



EROR : 



013A 


C83F 


LDB 


KL0,#'? ' ! DISP '? ' FOR ER ! 


018C 


34CA 


LDA 


R10,R12(#SNDCHR) ! CALR SUBSTIT ! 


018E 


0000* 






0190 


1FA0 


CALL 


0R10 


0192 


AIEF 


LD 


E15,P14 


0194 


010F 


ADD 


R15,#%05F0 I RESET STACK POINTER 


0196 


05F0 






0198 


34S1 


LDA 


R1 ,R14(#0UTBUF) 


019A 


0080 






019C 


33E1 


LD 


R14(#0UTPTR) ,R1 


019E 


0306 






01A0 


E8D0 


JR 


EXEC ! DELETE CMD ! 


01A2 




END INITL 








END EXEC 


DMONITOR 
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IMTEEP.UPT MODULE 



2 . 



Z8000ASM 2.02 

LOG OBJ CODE STMT SOURCE STATEMENT 



1 INTERRUPT HDLR MODULE 
$LISTON $TTY 



^ * %V V> V^ 

^1% #g% >1% #1% ^1% ^1% ^1% ^1% >1% #^% #1^ ^1% ^1% #,» #1* 

5^ 

* INTERRUPT HANDLER ROUTINES - 

mf* 

'r 'r 

:^c:;c5{c3jc:i6 3{<:jc5;in«5j:5{c:jc:{c5{;5;;5;«a;c:;c3jc3;c5;c3;s3;«5;:3's:^y,?3(?3r5;i5!<3ji3{c5;«3{c5;<:;j5!«i*^:;: I 



CONSTANT 

RXR 

TXR 

PAR 

P OR TAD 
PORTED 
PORTAC 
PORTBC 

IDPORT 

ICPORT 

TCMD 

TDTA 



:= 2 
;= 0 
:= 7 

:= %F?D9 

:= %FEE1 
:= %FFDB 
:= %FFE3 

:= %FFCB 
:= %FFC9 

;= %FFD2 
:= %FFD0 



BUS LOCK ;= 


%FFF9 


BUS UNLOCK 


:=^FFF8 


VINTR := 


%( 2)0001000000000000 


VIBIT 


12 


ESCAPE := 


%1B 


BS : = 


%08 



LINDEL 


= 


%7F 






CR 


= 


%0D 






LF 


= 


%0A 






TXOFCH 


= 


%13 






TXONCH 


= 


%11 






INSIZ 


= 


123 


! INT3UF SIZE 


j 


OUTSIZ 


= 


128 


! OUTBUF SIZE 


I 


RBSIZ 


•= 


256 


I RING BUFFER 


SIZE 


BIT POSITIONS 


IN MONI 


TOR FLAG WORD ! 




TRPMDE 


= 


0 






ISTOP 


= 


1 






OSTOP 


= 


2 






SNDMDE 


= 


3 







; 
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LDMDE 


:= 4 


ESC 


:= 5 


TXMSK 


:= %6 





EXTERNAL 










EXEC 


LABEL 








PBUENC 


LABEL 








CONVW 


PROCEDURE 






PRNTBF 


PROCEDURE 






BPKROU 


LABEL 








NEWLNE 


PROCEDURE 






INTERNAL 










^SECTION DAT.\ DEC 








$ABS 0 








0000 


INTBUF 


ARRAY 


'129 


BYTE 


0080 


OUTBUF 


ARRAY 


;i2S 


BYTE 


0100 


RNGBUF 


ARRAY 


’256 


BYTE 


0200 


MCZBUF 


ARRAY 


’256 


BYTE 


0300 


BUFADR 


WORD 






0302 


BUFSIZ 


WORD 






0304 


INTPTR 


WORD 






0306 


OUTPTR 


WORD 






0308 


UNIMP 


WORD 






030A 


BRKCNT 


WORD 






030C 


NXTPTR 


WORD 






030E 


GETOUT 


WORD 






0310 


MCZPOT 


WORD 






0312 


MCZGET 


WORD 






0314 


BRKSTR 


WORD 






0316 


BRKADR 


WORD 






0318 


TMPSP 


WORD 






031A 


TMPFCW 


WORD 






031C 


MFLAGS 


WORD 








! USER REGISTER STORAGE ! 


031S 


R0 


WORD 






0320 


R1 


WORD 






0322 


R2 


WORD 






0324 


R3 


WORD 






0326 


R4 


WORD 






0328 


R5 


WORD 
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032A 


R6 


WORD 


032C 


R7 


WORD 


032E 


RS 


WORD 


0330 


R9 


WORD 


0332 


R10 


WORD 


0334 


Rll 


WORD 


0336 


R12 


WORD 


0338 


R13 


WORD 


033A 


R14 


WORD 


033C 


R15 


WORD 


033E 


RPC" 


WORD 


0340 


RFC_ 


WORD 


0342 


RETRY 


WORD 


0344 


ADR STR 


WORD 



GLOBAL 

$SECTION INTERRUPT_P?.OC 
$REL 0 



0000 0C 49 
0002 4C 4C 
0004 20 4D 
0006 45 4D 
0008 20 52 

000A 45 46 

000C 0D 
000D 09 42 

000F 52 45 

0011 41 4B 
0013 20 41 

0015 54 20 

0017 05 4E 
0019 4D 49 
0013 20 0D 
001D 09 55 

001F 4E 4B 
0021 20 54 

0023 52 41 

0025 50 0D 



SECMSG ARRAY BYTE] := 

BRKMSG ARRAY [* BYTE] 

NMIMSG ARRAY [* BYTE] 
UNK_INT ARRAY [- BYTE] 



'%0CILL MEM HEF%0D' 

;='%09BREAK AT ' 

;='%05NMI %0D' 
:='%09UNK TRAP%0I}' 
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0028 




SAVRS PROCEDURE 










^1% ^ 






'T* 

* SAVRG: 


SAVES USER PROG 


RAM STATUS * 








AND REGS 1-14 


CONTENTS. * 






•ft ^ft 


tJf ^ *!> 


»•# %'# fl 

•ft #1% ttft rf 1 






ENTRY 






0028 


6FEE 


LD 


TMPSP(R14) ,E15 


I RTN ADR ! 


002A 


0318 








002C 


31F0 


LD 


R0,R15(#4) 


(SAVE: ! 


002E 


0004 








0030 


6FS0 


LD 


RFC_(R14) ,R0 


! USER FCW ! 


0032 


0340 








0034 


31F0 


LD 


E0 ,P.15(#6) 




0036 


0006 








0038 


6PE0 


LD 


RPC_(R14) ,R0 


! USER PC ! 


003A 


033E 












! SAVE R1 - 


R14 ! 




003C 


76E? 


LDA 


R15,R1_(R14) 




003E 


0320 








0040 


1CF9 


LDM 


0R15.R1 ,#11 


! STORE REGS ! 


0042 


010A 








0044 


61 EE 


LD 


R15,TMPSP(R14) 


! RESTORE SP ! 


0046 


0313 








0048 


6FED 


LD 


R13_(R14) ,R13 




004A 


0338 








004C 


9E08 


RET 






004E 




END SAVRG 










GLOBAL 






004E 




DMON ENTRY 


PROCEDURE 








1 :^C3JC3^C^:^C3{^3;;>;C5;C5Jca;53;€3;^5n3;^2J^^^S5^?;«2^^5;^5;c^:;;^3^^ 3^n?5^aJC5;c^;{?jX2}t5r3r5;«3;t5^5}C 






❖ 










« DMON ENTRY: RESTORES DMONITOR R12 - 








AND R14 (CODE AND DATA)* 








REGISTERS 


FOR INTERRUPT* 








ENTRIES . 


u. 

'r 
















5^ :^e a}c :Jc 5jc 








ENTRY 






004E 


93F1 


PUSH 


0R15.R1 




0050 


93FE 


PUSH 


QR15,R14 




0052 


7D15 


LDCTL 


R1 .PSAPOFF 


! GET PSA BASE ! 


0054 


211E 


LD 


R14,0R1 


! RESTORE DATA BASE ! 


0056 


6FSC 


LD 


R12_(R14) ,R12 


! SAVE USER R12 ! 


0058 


0336 








005A 


311C 


LD 


R12,R1(#2) 


! RESTORE CODE BASE ! 


005C 


0002 








005E 


97F1 


POP 


R1 ,0R15 
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0060 


6FE1 


LD 


R14_(R14) ,R1 


0062 


033A 






0064 


97E1 


POP 


R1 ,0R15 


0066 


9E08 


RET 




0068 




END DMON 


_EMTRY 






GLOBAL 




0068 




MEMINT 


PROCEDURE 








«JU V* V* V# 'V V' »’* 'V '*'» »** 

BY* *t* O' O' *T* Or O* O' O* O' O' O' O' O' *i' o' O' o' o' o' 'P 

,K, 






- MEMINT: INTERRUPT HANDLER TC SIGNAL - 








USSR OF ILLEGAL USER MODE - 






«u 


USE OF LOCAL MEMORY, AND - 








TERMINATE USER PROGRAM EXE- - 








CUTION WITH RETURN TO DMON. - 

s!c 






^ ^ sic sjes;: St: sjcsjc sjesje sjcsjc sjcsic s|c s|£s|estcs;c s|c y,cs;c9;c:;c s|;s|c >|cs;c s;c f 






ENTRY 




0068 


D00E 


CALR 


DMON ENTRY 


006A 


33EE 


LD 


R14(#R15_) ,R15 


006C 


033C 






006E 


33E0 


LD 


R14(#R0_) ,R0 


0070 


031E 






0072 


D026 


CALK 


SAVRG I SAVE USER REGS ! 


0074 


3402 


LDAR 


R2 .SECMSG 


0076 


EF88 






0078 


93F2 


PUSH 


0R15,R2 ! SAVE MSG ADR ! 


007A 


E84D 


JR 


ALERT 


007C 




END MEMINT 






GLOBAL 




007C 




IMPINT 


PROCEDURE 






• 


sj; s|c s;: sjc s)c sjc s|c s;c Si; sic s;; >;c 3}c s;c sjc s|c s;c >|c s|c :|e sjc s|c :{c s|c s|c s|c s|: s|c :|c 



❖ 

'Y* 



impint: non-implsmented instruction - 
interrupt handler used TC 

TERMINATE USSR PROGRAM EXE- * 

cution at a preset break - 

POINT. ALL USER REGISTERS - 
AND PROGRAM STATUS IS SAVED 



ENTRY 



007C D018 


CALR 


DMON ENTRY 


007E 33EF 


LD 


R14(#R15_),R15 


0080 033C 






0082 33E0 


LD 


R14(#R0_) ,R0 


0084 031E 






0086 D030 


CALR 


SAVRG 



! SAVE REGS 1 
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0088 


6BE1 


DEC 


RPC_(R14) ,/^2 


008.4 


033E 






008C 


6BE0 


DEC 


3RKCNT(R1 1) ,#1 


008E 


030A 






0090 


EE12 


JR 


NZ.SSTP ! NO, EXEC 1 INST ! 


3092 


4DE5 


LD 


BRKCNT(R14) ,#%0001 


0094 


030A 






0096 


0001 






0098 


7C05 


El 


71 


009A 


3402 


LDAR 


R2,BRXMSG ! LOAD ADR 3RK MSG 


009C 


FF6F 






009E 


DFB0 


CALE 


SNDMSG 


00A0 


31E5 


LD 


R5,R14(#RPC_) 


00A2 


033E 






00A4 


34CA 


LDA 


R10,R12(#CONVW) 


00A6 


0000* 






00. A8 


1FA0 


CALL 


0R10 ! CONVERT BYTE ! 


00AA 


34CA 


LDA 


R10,R12(#PRNTBF) 


00AC 


0000* 






00 AE 


1FA0 


CALL 


0R10 ! OUTPUT TO CONS ! 


00B0 


34CA 


LDA 


R10,R12(#EXEC) 


00E2 


0000* 






00B4 


1EA8 


J? 


0R10 ! RETURN TO EXEC ! 






SSTP: 




00B6 


34CA 


LDA 


R10,R12(#BRKROU) 


00B8 


0000* 






00EA 


1EA8 


JP 


GR10 ! JUMP TO BRK, 1 








1 ROUTINE ! 


00BC 




END IMPINT 








GLOBAL 




00BC 




FAIL SAFE 


PROCEDURE 












❖ 


❖ 






* FAIL SAFE: RESTORES PROGRAM TO * 








CONTROL OF DM0 N I TOR ON AN * 








UNKNOWN INTERRUPT OR TRAP * 






5^ 


SOURCE. * 






* RETURNS TO THE BASIC EXEC. * 

iV 






%*» V' 

O' V 


s.'s ^ ^ 3|< ^ 3*? 5^5*^ | 






ENTRY 




00EC 


D038 


CALR 


DMON ENTRY 


00BE 


33 FF 


LD 


R14(#R15_) ,R15 


00C0 


033C 






00C2 


33 S0 


LD 


R14(#R0_) ,R0 


00C4 


031E 






00C6 


D050 


CALR 


SAVRG ! SAVE USER REGS ! 
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f’?C8 

00CA 

00CC 

00CE 

00D0 

00D0 



00D0 

00D2 

00D4 

00D6 

00D8 

00DA 

00DC 

00BE 

00E0 

00E2 

00E4 



00 E6 
00E8 
00EA 
00EC 
00EE 
00E0 
00E2 

00E4 

00F6 

00F8 

00FA 

00FC 



3402 LDAF; R2,UN’K_INT 

FF51 

93F2 PUSH 0R15,R2 ! SAVE MSG ADR ! 

E823 J.R ALERT 

END FAIL SAFE 



93FC 
93 FE 
93F1 
7D15 
211E 
311C 
0002 
97F1 



NMI PROCEDURE 

f «v *A* «i^ 

^ #(» 3p Ji** «>f» ^ ^ *<r* ^ ^ ^ ^ ^ ^ ^ 'I'* *T' *t(* 

•»* %v 

n- 

- NMI I NT: NON-MASKABLE INTERRUPT HDLR- 
* IN RESPONSE TO MULTIPLE 

* INT SOURCES. IF IN TRANS- - 

« PARENT MODE, IT WILL SEND THE - 

- ESCAPE CHAR TO MCZ AND RESTORE - 

* THE stack; if executing user - 

* PROGRAM, IT WILL SAVE PROGRAM - 

* STATUS AND ALL REGISTERS. 















5*S 5{: 5js jjs ^ 5*C 5{« :{< 


<iV y< y- 

*r* n"* 'I* ^ •V' 




«!.« . 
*•)•« n"* '»* 


ff* *** ' 

'r n' »T* »T* n* ^ 'i' n- ■ 


5{i J 


ENTRY 












PUSH 


0P.15,R12 










PUSH 


GR15,R14 










PUSH 


@R15,R1 










LDCTL 


R1 ,PSAPOFF 










LD 


R14,3R1 


1 


LOAD 


DATA_AREA 


BASS ! 


LD 


P12,R1(#2) 


f 


LOAD 


CODE_AREA 


BASE ! 


POP 


R1 ,GR15 


f 


RESTORE R1 ! 





67E0 BIT MFLAGS(R14) ,#TRPMDE 

031C 

EE0C JR NZ,T0UIT ! YES, TERMINATE ! 





! EXECUTING 


USER PROGRAM ! 


97FE 


POP 


R14,GR15 


97FC 


POP 


R12,0R15 


D04F 


CALR 


DMON_ENTRY 


33EF 


LD 


R14(#R15_) ,R15 


033C 






33E0 

031E 


LD 


R14(#R0_) ,R0 


D067 


CALR 


SAVRG 


3402 

FFID 


LDAR 


R2 ,NMIMSG 


93F2 


PUSH 


0R15,R2 


E80C 


JR 


ALERT 



SAVE PS AND REGS ! 
LOAD ALERT MSG ! 



! IN TRANSPARENT MODE ! 
TO.UIT: 
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00?E 

0100 

0102 

0104 

0106 

0108 

010A 

010C 

010E 

0110 

0112 

0114 



0116 

0116 

011A 

011C 



011E 

0120 

0122 

0124 

0126 

0128 

012A 

012C 

012E 



012E 



012E 

0130 

0132 

0134 

0136 

0138 

013A 

013C 



63E0 

031C 


RES 


MFLAGS (R14) ,#TRPMDE 


AIEE 


LD 


R15.R14 


010F 

05F0 


ADD 


R15,#%05F0 ! SET STACK PTE 1 


6FEF 

033C 


LD 


rtl5_(R14) ,R15 ! SET USER SP ! 


C813 


LDB 


RL0,#ESCAPE 


DFFl 


CALR 


SNDMCZ ! SEND ESCAPE TO MCZ ! 


3402 

FF03 


LDAR 


P.2,NMIMSG ! LOAD ALERT MSG ! 


93F2 


PUSH 

!OUTPUT 

ALERT: 


GR15,R2 

NMI ALERT MSG AND RETURN TO EXEC ! 


7C05 


El 


VI 


76CA 

0000* 


LDA 


R10, NEWLNE(R12) 


1FA0 


CALL 


GR10 


97F2 


POP 


R2,0R15 


DFFl 


CALR 


SNDMSG 


AIEF 


LD 


R15,R14 


010F 

05F0 


ADD 


R15,#%05F0 ! RESET STACK POINTER 


34CA 

0000* 


LDA 


R10,R12(#EXEC ) 


1EA8 


JP 0R10 I RETURN TO DMONITOR 

END NMI 

GLOBAL 

SNDMCZ PROCEDURE 

1 ^ ^ <vV if* %•« V* y* Vf ^ ^ 

<r- 



* SNDMCZ: OUTPUT CHAR TO SERIAL PORT 

* ONE (MCZ SYS). * 

if '’f 



3A04 


* REG 

ENTRY 

INB 


USE: INPUT RL0 
RETURN Z IF 

» 

* ^ 

RH0.PORTAC 


= CHAR * 

CHAR = CR - 

% V t 

^ ^ ^ ^ » 

! GET STATUS ! 


FFD3 

A600 


BITS 


RH0,#TXR 


! TRANSMIT RDY? 


S6FC 


JR 


Z, SNDMCZ 


! NOT YET ! 


3A86 


OUTB 


PORTAD,RL0 


! YES, SND CHR 1 


FFD9 

0A08 

0D0D 


CPE 


HL0,#CR 
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0132 


9308 


SET 




0140 




END 3NDMCZ 






GLOBAL 




0140 




SNDMSG 


PROCEDURE 






* 


»y y« %•» yy y^ y# »y o-» y^ «.y *y *v y« y* y# y^ y^ *y *•« »y s'** »** y-' >v y» »v «•* y^ y» 

#r n'* nr n^ n'* ^ 'r nr ^r ^ nr n^ n'*nr nT n* ^r n* n^ n* n'* n^ n^ n^ n^ nr ^r nr n* ^r n* 

j!'. 






* SNDMSG: SEND MSG S3ECI3IED TO CONS - 








(P0RT2). 3IRST BYTE 03 MSG 








IS THE DECIMAL LENGTH IN * 








WORDS . 














^ REG 


USE: INPUT R2 = MSG ADDF - 

** 






nr 'r 

vn %*« yu v« v** yy yt* yn «*# y# «•> y^ yy y^ t 

#r *r 'T *r 'r 'r nr nr nr *r ^r nr nr nr *t* 'r nr *r nr nrnr nr ^r n^ n^ nr *r nr nr nT nr ^r n* > 






ENTRY 




0140 


3431 


LDA 


R1 ,R14(#0UTBU3) 


0142 


0080 






0144 


8D08 


CLR 


R0 


0146 


2028 


LD3 


RL0.0R2 ! GET BYTE COUNT ! 


0148 


8101 


ADD 


xRl ,R0 


014A 


3331 


LD 


R14(#0UTPTR) ,R1 


014C 


0306 






014E 


A920 


INC 


R2 ! SETUP 30R TRANS3ER ! 


0150 


3431 


LDA 


R1 ,R14(#0UTBU3) 


0152 


0080 






0154 


BA21 


LDIRB 


0R1,QR2,R0 ! TRANSFER TO 0UT3UF 


0156 


0010 






0158 


34 C A 


LDA 


R10,R12{#PBU3NC) 


015.A 


0000!<‘ 






015C 


13A8 


JP 


0R10 ! OUTPUT TO CONS ! 


015E 




END SNDMSG 






GLOBAL 




0153 




CONINT 


PROCEDURE 






J 5>:5!e5!!:ts*4:>;c 


%^s OU «># ^4^ ^ %*# % V «v ^ 

#1% #|V ^1% «^|% >|« 1^1^ >1% ^1% y|% 






* CONINT; CONS (P0RT2) INPUT I NT HDLR « 






•jy 

•V 


ROUTINE, WHICH GETS REC C3R 








FROM US ART. REC CHR IS CK 






nr 


FOR TX03CH OR TXONCH, AND * 






Jr 


MFLAGS ADJUSTED ACCORDINGLY - 






oy 

nr 


TO SIGNAL PROCEDURES . - 






• 






ENTRY 




0153 


9330 


PUSH 


0R15,R0 


0160 


9331 


PUSH 


0R15,R1 


0162 


9332 


PUSH 


0R15,R2 ! SAVE WORK .REGS ! 


0164 


9333 


PUSH 


0R15.R14 
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0166 


7D15 


LDCTL 


Rl.PSAPOFF ! DATA AREA ADR I 


0168 


2112 


LD 


R14,0R1 






t 92T CHAR 


AND CHECK FOR TXOFCH OR TXONCH ! 


016A 


3A94 


INB 


RLl, PORTED ! GST DSART DATA ! 


016C 


2221 






0162 


A297 


RESB 


?.L1,#PAR ! CLR PARITY BIT f 


0170 


6720 


BIT 


MFLAGS(R14) ,#TRPMDE 


0172 


031C 












! TRANSPARENT MODE ! 


0174 


2218 


JR 


NZ, PUTCHR 1 YES, ! 


0176 


0A09 


CPB 


RLl.#TXONCH ! NO, CK FOR TXONCH! 


0178 


1111 






017A 


2203 


JR 


NZ, AGAIN ! NO, ! 


017C 


6322 


RES 


MFLAGS(R14) ,#OSTOP ! RESET TO, ! 


017E 


031C 












! RESUME OUTPUT I 


0180 


2818 


JR 


FINISH 






AG AI N : 




0182 


0A09 


CPB 


RLl,#TXOFCH ! CK FOR TXOFCH I 


0184 


1313 






0186 


2203 


JR 


NZ,AGAIN2 ! NO 1 


0188 


6522 


SET 


MFLAGS(P.14) ,#OSTOP ! STOP OUTPUT ! 


018A 


031C 






018C 


2812 


JR 


FINISH 






! CHECK FOR 


ESCAPE CHARACTER ! 






AGAIN2: 




0182 


0A09 


CPB 


RL1,#ESCA?E 


0190 


IBIB 






0192 


2209 


JR 


NZ, PUTCHR ! NO, I 


0194 


6723 


BIT 


MFLAGS(R14) ,#SNDMDE ! YES, CK SND MDE 


0196 


031C 






0198 


2203 


JR 


NZ,ESCP ! YES, I 


019A 


6724 


BIT 


MFLAGS(R14) ,#LDMDE ! NO, CK LD MDE ! 


019C 


031C 






0192 


2603 


JR 


Z, PUTCHR ! NO I 






ESCP: 




01A0 


6525 


SET 


MFLAGS (R14) ,#ESC ! SET ESCAPE BIT I 


01A2 


031C 






01 A4 


2806 


JR 


FINISH 






I PRIMARY SAVE CHARACTER ROUTINE I 






PUTCHR : 




01A6 


3120 


LD 


R0,R14(i*NXTPTR) 


01A8 


030C 






01AA 


D228 


CALR 


GETBUF ! GET RNGBUF ADDR I 


01<iC 


3320 


LD 


R14(#NXTPTR) ,R0 


01A2 


030C 






01B0 


2229 


LD3 


0R2,RL1 I PUT CHR IN RNGBUF I 
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FINISH: 








01B2 


97FE 


POP 


R14,0R15 






01B4 


97F2 


POP 


R2 ,0R15 






01B6 


97F1 


POP 


R1 ,0F15 






01BS 


97F0 


POP 


R0 ,GR15 


I 


RESTORE WORK PEGS ! 


01BA 


7B00 


I RET 








01BC 




END CONINT 










GLOBAL 








013C 




GETBUF 


PROCEDURE 










1 *r*t* <T* ^ ^ ‘IT ^r* ^ »!'* n* n* *T* o' 

• 


. *«<» 
'C- 


..V »*» «•» •t* •*» V* *f* 






* GETBUF: DETERMINES 


POSITION IN - 








RINGBUFFER 


TO 


PUT OR GET - 






n* 


NEXT CHAR. 




-r* 






=f= REG 


USE: INPUT R0 




CURRENT INDEX - 








RETURN R0 


= 


NEW INDEX - 








R2 


= 


ADR OF RNGBUF - 








» 

» ^1% 


xV xO *JU x*» x'» xl» ^ xV %(U U.» xU V* X** t 

^ ^T* "1'* *TT “V* n'* 'r <Tr 'r* nr <’r n* T 






ENTRY 








01BC 


93FD 


PUSH 


0R15,R13 






01E3 


A102 


LD 


R2.R0 






01C0 


A900 


INC 


R0 ,#1 




! INC PTR ! 


01C2 


0B00 


CP 


R0.#RBSIZ 




! WRAP AROUND ! 


01C4 


0100 










01C6 


EE01 


JR 


NZ ,GB 






01C8 


8D08 


CLR 


R0 




! RESET INDEX ! 


01CA 


34ED 


GB-.LDA 


R13,R14(#F.NGBUF) ! NEW ADR ! 


01CC 


0100 










01CI 


81D2 


ADD 


R2,R13 






01D0 


97FD 


POP 


R13.0R15 






01D2 


9E08 


RET 








01D4 




END GETBUF 
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01D4 



GLOBAL 

MCZHND PROCSDURE 

^ »•< »A» »l, «»« »*, 

»,t >r* -f »S* n- *t* '’^■»'^•* ••i» 



^ MCZHND: MC Z (SERIAL PORTl ) INPUT 

- INTERRUPT handler ROUTINE 

- WHICH GETS RECEIVED CHAR 

^ FROM US ART, AND STORES IN 

- MCZBUF. 



❖ 









:;c:;::(c5:5:j:::;s5j5y.:5;:>;c5jc5^:j:5jss*:::;s5;c5;c5:s?'^3;c:t::;ss;s:^:i;c5;s>;4 3^:;c3;fi:;:5}?:{:3;s3{s:ilc3;£5'j:{5 J 



ENTRY 



01D4 


93F0 


PUSH 


0R15.R0 


01D6 


93F1 


PUSH 


0R15,R1 


01D8 


93F2 


PUSH 


0R15.R2 ! SAVE WORK REGS ! 


01DA 


93FE 


PUSH 


0R15.R14 


01DC 


7D15 


LDCTL 


R1 .PSAPOFF 


01DS 


211S 


LD 


R14.0R1 ! DATA AREA ADR ! 






! GET CHAR 


FPOM MCZ ! 


01E0 


3A94 


INB 


RLl.PORTAD ! GST CHR 1 


01E2 


FFI)9 






01E4 


A297 


RESB 


RL1,#PAR ! RESET PARITY ! 


01E6 


31E0 


LD 


P0 ,R14(#MCZ?UT) 


01E8 


0310 






01EA 


DFF8 


CALR 


GMCZAD ! GET MCZBUF ADR ! 


01EC 


33E0 


LD 


R14(#MCZPUT) ,R0 


01EE 


0310 






01E0 


2E29 


LDB 


0R2.RL1 ! SAVE CHAR ! 






IRESTORE WORK REGS ! 


01F2 


97FE 


POP 


R14,0R15 


01F4 


97F2 


POP 


R2.0R15 


01F6 


97F1 


POP 


R1 ,0R15 


01F8 


97F0 


POP 


R0 ,0R15 


01FA 


7B00 


I RET 




01FC 




END MCZHND 
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GLOBAL 




01EC 


GMCZAD PROCEDURE 


»’> «•» %V V* «•# »•# **» 

*,■• >((» 




5[C 





« GMCZAD: GET NEXT ADE OF NCZ 3UFFEE - 
* TO STORE OR GET CHARACTER. - 







=<= REG USE; INPUT R0 = PTH IN MCZBUF * 

’S' RETURN R0 = NEW PTR IN BUF - 

* R2 = BGN OF MCZBUF - 

Jjt 

^lU %V ^ ^ «4U V# ^ 1 

ENTRY 


01FC 


93FD 


PUSH 


0E15,R13 


01FE 


A102 


LD 


R2,R0 


0200 


A900 


INC 


R0,#1 


0202 

0204 


0B00 

0100 


CP 


R0,#RBSIZ ! WRAP AROUND? ! 


0206 


EE01 


JR 


NZ ,GBZ 


0208 


8D08 


CLH 

GBZ; 


R0 ! RESET OFFSET ! 


020 A 
020C 


34ED 

0200 


LDA 


H13,R14(#MCZBUF) ! GET ADR ! 


020E 


81D2 


ADD 


R2.R13 


0210 


97FD 


POP 


R13.0R15 


0212 

0214 


9E08 


R ET 

END* GMCZAD 

END INTERRUPT HDLR 
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3. LOAD MODULE 



Z800i^ASM 2.02 

LOG OBJ CODE STMT SOURCE STATEMENT 

1 LOAD CMD MODULE 
$LISTON $TTY 






* LOAD CMD: COMMAND TO DOWNLOAD Z8K 

OBJ CODE FILE FROM RIO/ 

* MCZ SYSTEM IN TEXTRONIX FORMATTED 



* PACKET PASSING PROTOCOL. USER CAN * 

SPECIFY LOAD ADDRESS INSTEAD OF * 

* USING MCZ LOAD ADDRESS. - 

« ^ 

CAUTION: « 

* CODE FILES MUST BE RELOCATABLE * 

TO EXECUTE PROPERLY. * 

* # 



* SYNTAX: LOAD <FILENAME> [<ADR>] - 



CONSTANT 

RXR 

TXR 

PAR 

PORTAD 

PORTED 

PORTAC 

PORTBC 

IDPORT 

ICPORT 

TCMD 

TDTA 



:= 2 
:= 0 
:= 7 

:= %FFD9 
:= %FFE1 
:= %FFDE 
;= %FFE3 

:= %FFCB 
:= %FFC9 

:= %FFD2 
:= %FFD0 



EUS_LOCK : 
BUS_UNLOCK 
VINTR 
VISIT ; 

ESCAPE : 
B S : 

LINDEL : 



=%FFF9 

:=%FFF8 

= %( 2)0001000000000000 
= 12 



= %1B 

= %08 
= %7F 



CR 



%0D 
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LF : = 


%0A 






TXOFCH := 


%13 






TXONCH 


%11 






INSIZ := 


128 


! INT3UF SIZE 


J 


OUTSIZ := 


128 


! OUTBUF SIZE 


? 


R3SIZ := 


256 


! RING BUFFER 


hzE 


BIT POSITIONS 


IN MONITOR 


FLAG WORD ! 




TRPMDE ;= 


0 






ISTOP := 


1 






OSTOP 


2 






SNDMDS 


3 






LDMDE := 


4 






ESC 


5 






TXMSK 


%6 






COMBS 


11 







INTERN ai 

$SECTION DATA_DEC 
$ABS 0 



0000 


INTBUF 


ARRAY 


[128 BYTEl 


0080 


OUTBUF 


ARRAY 


[12S BYTEl 


0100 


RNGBUF 


ARRAY 


[256 BYTEl 


0200 


MCZBUF 


ARRAY 


[256 BYTEl 


0300 


BUFADR 


WORD 




0302 


BUFSIZ 


WORD 




0304 


INTPTR 


WORD 




0306 


OUTPTR 


WORD 




0308 


UNIMP 


WORD 




030A 


BRKCNT 


WORD 




030C 


NXTPTR 


WORD 




030E 


GETOUT 


WORD 




0310 


MCZPUT 


WORD 




0312 


MCZGET 


WORD 




0314 


BRKSTR 


WORD 




0316 


BPKADR 


WORD 




0318 


TMPSP 


WORD 




031A 


TMPFCW 


WORD 




031C 


M FLAGS 


WORD 






! USER REGISTER 


STORAGE ! 


031E 


R0 


WORD 




0320 


R1 


WORD 




0322 


R2 


WORD 
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0324 




R3 


WORD 




0326 




R4 


WORD 




0328 




P5 


WORD 




032A 




R6 


WORD 




032C 




R7 


WORD 




032E 




R6 


WORD 




0330 




R9 


WORD 




0332 




R10 


WORD 




0334 




Rll 


WORD 




0336 




R12" 


WORD 




0338 




R13 


WORD 




033A 




R14 


WORD 




033C 




R15 


WORD 




033E 




RPC 


WORD 




0340 




RFC_ 


WORD 




0342 




RETRY 


WORD 




0344 




ADR STH 


WORD 




0346 




CMDTBL 


ARRAY [12 WORD] 






EXTERNAL 


PRNTBE 


PROCEDURE 






EXTERNAL 


GETNXT 


PROCEDURE 






EXTERNAL 


EROR 


LABEL 






EXTERNAL 


SNDCHR 


PROCEDURE 






EXTERNAL 


GETADR 


PROCEDURE 






EXTERNAL 


GMCZ AD 


PROCEDURE 






EXTERNAL 


SNDMCZ 


PROCEDURE 






EXTERNAL 


CONVERT 


PROCEDURE 






EXTERNAL 


PBUFNC 


LABEL 






EXTERNAL 


SNDMSG 


PROCEDURE 






EXTERNAL 


CONVW 


PROCEDURE 






$SECTION LOAD PROC 








$REL 0 










GLOBAL 






0000 




FNAME PROCEDURE 










3^ ^ :{c ?;c ^ 3}: ^ 






- F!^AMS: 


RESETS TWO 


V 

PTRS TO MCZBUF - 






❖ 

3*C 


AND CHECKS 


FOR FILENAME. * 

* 












ENTRY 






0000 


4DE8 


CLR 


MCZGET(R14) 




0002 


0312 








0004 


4DE8 


CLR 


MCZPUT(R14) 


! RESET BUFFER 
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0006 


0310 










0008 


34CA 


LDA 


R10,?12(#GETNXT^ 




000A 


0000* 










000C 


1FA0 


CALL 


OR 10 


! SXI? CMD ARG 


1 


0005 


0A08 


C?B 


RL0,# 'A ' 






0010 


4141 










0012 


E711 


JR 


C.DUN 






0014: 


0A08 


CPB 


RL0,#'Z'+1 






0016 


5B5B 










0018 


EF0E 


JR 


NC ,DUN 


! 1ST CHR IN (A 


. .Z) ! 


001A 


76 C A 


LDA 


R10,GSTNXT(P 


12) 




001C 


0000* 










001E 


1FA0 


CALL 


0R10 


! SKIP TO NEXT 


ARG ! 


0020 


E607 


JP. 


Z,NO ADR 


! NO NEXT APG ! 




0022 


76CA 


LDA 


R10,GETADR(R12) 




0024 


0000* 










0026 


1FA0 


C.4LL 


OR10 


! GET USER SPECIFIED ! 










1 ADDRESS ! 




0028 


A13B 


• LD 


R11,H3 


! SAFE USER ADR 


1 


002A 


6FE3 


LD 


ADP_STR(R14) 


,P3 




002C 


0344 










002E 


9E08 


RET 












NO ADR: 








0030 


210B 


LD 


R11,#%FFFE 


! SIGNAL TO USE 


MCZ I 


0032 


FFFE 






! ADDRESS ! 




0034 


9E08 


RET 












DUN: 








0036 


8D98 


CLR 


R9 






0038 


34CA 


LDA 


R10,R12(#SROR) 




003A 


0000* 










003C 


1EA8 


JP 


0P10 


! ERROR, RTN TO 


EXEC ! 


003E 




END FNAME 
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GLOBAL 

003E C^1DPAS PROCELURE 

I 3fc jAc 3!s * slsait y.S2K 















* CMDPAS: 


LOAD CMD PASSING MECHANISM * 








SENDS 'B; ' PLUS CONS CMD * 






- LINE TO 


MCZ AND CKS RESPONSES FOE * 






* GOOD Z80 PROGRAM LOAD. - 








if 






* REG USE 


: RETURN NZ IF Z80 LOADED * 








Z IF NOT 












ENTRY 




003E 


67E5 


BIT 


MFLAGS(R14) ,#ESC ! CE FOR ESCAPE 


004:0 


031C 






0042 


E602 


JR 


Z ,GCMD 


0044 


8D41 


SETFLG 


Z 


0046 


9E08 


RET 








GCMD: 




0048 


C242 


LDB 


RH2,#"B' 


004A 


CA3B 


LDB 


RL2,#'; ' 


004C 


6FE2 


LD 


OUTBUF(R14) ,R2 ! LOAD INIT 'B: 


004E 


0080 












! FOR BRIEF MODE I 


0050 


76E2 


LDA 


R2,0UTBUF(R14) 


0052 


0080 






0054 


A921 


INC 


R2,#2 


0056 


76E1 


LDA 


R1 ,INTBUF(R14) 


0058 


0000 






005A 


2100 


LD 


R0,#%40 ! LD CMD IN CUTBUF 


005C 


0040 






005E 


BBll 


LDIR 


0R2,0R1,R0 


0060 


0020 






0062 


76E1 


LDA 


R1 ,0UTBUF(R14) 


0064 


0080 






0066 


0101 


ADD 


R1 ,#%80 


0069 


0080 






006A 


6FE1 


LD 


0UTPTR(R14) ,R1 


006C 


0306 






006E 


DFB6 


CALR 


OUTSTM I OUTPUT BUFFER ! 


0070 


DEE7 


CALR 


SKIPLN ! SKIP MCZ ECHO ! 


0072 


DFD4 


CALR 


MCZCOM 1 WAIT RESPONSE ! 


0074 


0A09 


CP3 


RL1,#'B' 


0076 


4242 






0078 


EE02 


JR 


NZ ,LDSTAT 


007A 


DFEC 


CALR 


SKIPLN ! SKIP MCZ ECHO ! 
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007C 


DFD9 


CALR 


MCZCOM 


; 






! VERIFY 


LOAD STATUS 


f 






LDSTAT ; 






007E 


0A09 


CPB 


RLl, #'9' 


; 


0080 


3939 








0082 


E60E 


JR 


Z, RECACK 


1 


0084 


0A09 


CPB 


RLl,^* '0' 




0086 


3030 








0088 


E60B 


JR 


Z, RECACK 


f 


008A 


0A09 


CPB 


RLl, #'7' 




008C 


3737 








008E 


E608 


JR 


Z, RECACK 








! NO ACKNOWLEDGEMENTS 


RECEI 






ERMSG; 






0090 


DFD9 


CALR 


RECMSG 


j 


0092 


34CA 


LDA 


R10,R12(?^SNDCHR 


0094 


0000« 








0096 


1FA0 


CALL 


OR 10 


} 


0098 


0A08 


CPB 


RL0,#L? 




009A 


0A0A 








009C 


9E06 


RET 


Z 


! 


009E 


E8F8 


JR 


ERMSG 





! WAIT RESPONSE ! 



! RSC GOOD ACK * 



DONE ! 



! ACKNOWLEDGE RECEIVED ! 
RECACK: 

eOAf' 8D43 F.ESELG Z 

00A2 9E08 RET 

00A4 END CMDPAS 



! RETURN NZ ! 



00A4 



GLOBAL 

SKPE LABEL 
SKIPLN PROCEDURE 

❖ ?;c 

# SKIPLN; SKIP RECEIVED LINE FROM - 

* MCZ; RETURN FIRST CHAR OF * 

NEXT LINS. - 



* REG USE; RETURN 



RLl = 1ST CER 
AND NZ IF ESC 



ENTRY 



00A4 


DFE3 


CALR 


RECMSG 


I SKIP 


OVER LINE ! 


00A6 


0A03 


CP? 


P.L0,#CR 


! THRU 


CR,LF ! 


00A8 


0D0D 










00AA 


EEFC 


JR 


NZ , SKIPLN 
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SKP5 : 




00AC 


2101 


LD 


Rl,#%3000 ! DELAY FACTOR ! 


00AE 


3000 










! MAIN LOOP 


FOR RECEIVING CHAR ! 






LOOPl: 




0050 


61E0 


L5 


R0 ,MCZGET(R14) 


00B2 


0312 






0054 


45E0 


CP 


R0,MCZPUT(R14) ! TEST FOR EEC 


0056 


0310 






0058 


EE03 


JR 


NZ. RECHR ! YES, ! 


005A 


A510 


DEC 


Rl,#l ! NO, WAIT AWHILE ! 


003C 


EEF9 


JR 


NZ , LOOPl 


00BE 


9E06 


RET 


Z ! FORCED SOL ! 






RECHR: 




00C0 


DFE5 


CALR 


MCZCOM 


00C2 


0A09 


CPB 


ELI,#' ' ! CK 1ST=PRNT CER ! 


00C4 


2020 






00C6 


9E05 


RET 


PL 


00C8 


5FF5 


CALR 


RECMSG 


00CA 


E8F0 


JR 


SKPB 


00CC 




END SKIPLN 




00CC 




MCZCOM PROCEDURE 








;^e j;c3;c 3j: 5|C ^ :{: s[: ^ s;: ^ 5{S s;? s;? ;{c 5}: 3;c 






^ MCZCOM: 


LOOPS WAITING FOR RECEIVE * 








CHAR FROM MCZ 5Y SEEING IF * 








MCZBUF GETS CHAR. DOES * 






❖ 


ADVANCE POINTER. * 






- REG USE 


: RETURN RLl = CHR * 




















ENTRY 




00CC 


61E0 


LD 


F0,MCZGET(R14) ! CHECK MCZBUF ! 


00CE 


0312 






00D0 


45E0 


CP 


R0 ,MCZPUT(R14) ! POINTERS ! 


00D2 


0310 






0054 


E6F5 


JR 


Z, MCZCOM ! WAIT ! 


0056 


34CA 


LDA 


R10,R12(#GMCZAD) 


0058 


0000* 






00DA 


1FA0 


CALL 


@510 ! GET CHAR FROM BUF ! 


005c 


2029 


L5B 


RL1,@R2 


00DE 


9E08 


RET 




00E0 




END MCZCOM 
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P.EC^'SG PROCEDURE 

i %V «V «V %*# «v ^ 

f ^1% #«*• #|« ^1^ ^1% ^1% ^1^ #1% ^1^ ^|« ^1% #1^ ^g« ^1% ^1% ^ 



* RECMSG: LOOPS W*^ITING FOR REC CHR - 

- FROM MCZ. GETS CHAP AND - 

- rO NOT ADVANCE 3UF PTR. - 

•Jm -sS^ 

# REG USE: RETURNS RL0 = CHR r 

vv» *v%Af Oi» 5<# V# %>• ^g %•< V# Vf «v »v y^ **r y^ y» •'•« •'*> v* •^■» vii» »*■' **g y« »'^ y# y? yj ••• »•» •'•< y^ ■ 

»T* 'o ^ »y »»' nr *11' ^ '1'* ^ <’n *^n ^ ^ *v* *v* •^r nr n’^^r 'V* nr n"* nr *r* 't** ^r nr nr "r ^ " 







ENTRY 




00E0 


61E0 


LD 


R0 ,MCZGET (R14) 


00E2 


0312 






00S4 


4BE0 


CP 


R0,MCZPUT(Rli) ! CX FOR REC 


00E6 


0310 






00E8 


E6FB 


JR 


Z. RECMSG ! WAIT ! 


00 EA 


34CA 


LDA 


R10,R12(#GMCZAD) 


00EC 


0000=!'- 






00EE 


1FA0 


CALL 


0R10 ! GET 1ST CHAR ! 


00F0 


6FE0 


LD 


MCZGET(Rli) ,R0 ! RESTORE PTR 


00F2 


0312 






00F4 


2028 


LDB 


RL0,GR2 ! RTN CHAR ! 


00 F6 


9E08 


RET 




00F8 




END RECMSG 








GLOBAL 








OUTSTM LABEL 


00F8 




OUTLNS PROCEDURE 






j jji :j?:{c 5j<5!: 3^ 5{j 5j: :{« 5JC 3{i 


> *j* y> y^y« ^ y^ •■v y * y^ y^ y» y» y » ••• rv y* y^ %v y» y< y< y* »y 

■ <<|% ^|«nr nr n* nr nr o* nr ^r nr nr n* n*“ *r ^r nr nr ^r n' 






nr 

OUTLNE: 


'O 

OUTPUTS A LINE OF CHAR FROM * 






55: 


0UT3UF TO MCZ WITH Ca A.T - 






5j: 

jVj 


END. * 






* OUTSTM: 

5{S 


OUTPUTS A LINS OF CHAR W/CR ••!' 






^|« 


» %t^ WU» f 

» #1% #1^ >1% >p >1% ^1% ^1% 1 






ENTRY 




00F8 


61 E2 


LD 


R2 ,0UTPTR(R14) 


00FA 


0306 






00FC 


0C25 


LDB 


0R2,#CR ISTORE CR IN 3UF 


00FE 


0D0D 






0100 


69E0 


INC 


0UTPTR(R14) ,#1 ! INC PTR ! 


0102 


0306 










! NO CP. ENTRY POINT ! 






OUTSTM: 




0104 


76E1 


LD« 


R1.0UTBUF(R14) 


0106 


0080 










» MAIN LOOP 


! 
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OVRAGN: 



r-'ies 


2019 


LDB 


^L0,0R1 


01 0i', 


A910 


IMG 


R1 


010C 


34CA 


LDA 


R10,R12(#SNDMCZ) 


0101: 


0000^ 






0110 


1FA0 


CALL 


0P10 ! SND CHR TO MCZ ! 


0112 


E603 


JR 


Z, FINIS 


'^114 


4BE1 


CP 


R1 ,0UTPTR(R14) 


0116 


0306 






0118 


E7F7 


JR 


C, OVRAGN I CK IF BUF EMPTY ! 






! FINISHED, 


RESET OUTPTP.(R14) AND BLANK OUTBUF 






FINIS: 




01 lA 


76E2 


LDA 


R2 ,OUTBUF(R14) ! RESET POINTER ! 


011C 


0030 






011E 


6FE2 


LD 


OUTPTR(P14) ,P2 


0120 


0306 






0122 


2100 


LD 


R0,#OUTSIZ/2 


0124 


0040 






0126 


AE00 


DEC 


R0,#1 ! SET COUNT ! 


0128 


4DE5 


LD 


CUTBUF(R14) ' ! LOAD COUNT ! 


012A 


0080 






012C 


2020 






012E 


76E2 


LD« 


R2 ,0UTBUF(R14) 


0130 


0080 






0132 


A121 


LD 


R1 ,R2 


0134 


A 911 


INC 


R1 


0136 


BB21 


LDIR 


0P1,0R2,R0 ! CLP. BUFFER ! 


0138 


0010 






013A 


9E08 


RET 




013C 




END OUTLNE 
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ABOFTM 


LABEL 






GODPAK 


LABEL 


013C 




BADPAK 


PROCEDURE 










V* wu V' »*• y^ y? »•* y^ y^ y** sv y» 

^l'» #,» ^|f» »|« 

y« 






'I'* 


BADPAK: 


"r 

SENDS RESEND SIGNAL ('7') - 












TO MCZ FOR BAD CKSUM OR REC - 












NON-ASCII CHR. - 

* y» 








ABORT 


y\ • 

1 i • 


SENDS ABORT SIGNAL ('9') ’i' 












WHEN USER SELECTED. - 

i*' 








GODPAK: 


SENDS ACK SIGNAL {' 0 ') FOR 






•4« 






RECEIPT OF GOOD PACKET. - 

«.»j 






^1% 


%V V* V# V# V# t 

^1% ^1% #1% #1% #1% #1% «*l«k #1^ #l« f 






ENTRY 






013C 


CS37 




LDB 




RL0,#'7' ! LD RESEND SIG ! 


P13E 


E803 




J?. 




OUTALL 






AEORTM: 






0140 


C839 




LDB 




RL0,f^'9' ! LD ABORT SIG ! 


0142 


F801 




J? 




OUTALL 






GODPAK: 






0144 


C830 




LDB 




RL0,#'0' 1 LD REC OK SIG ! 






OUTALL: 






0146 


6EE8 




LDB 




OUTBUF(R14) ,RL0 


0148 


0030 










014« 


76ED 




LDA 




R13,0UTBUF(R14) 


014C 


0080 










014E 


A9D0 




INC 




R13,#l 


c-150 


6EED 




LD 




OUTPTR(R14) ,R13 


0152 


0306 










0154 


D02F 




CALR 




OUTLNS ! SEND MCZ SYSTEM 


0156 


D05A 




CALR 




SKIPLN ! SKI? ECHO ! 


0158 


9E08 




RET 






015A 




END BADPAK 
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GLOEAL 








01 5A 




GETACK PROCEDURE 










f j;s:{c 3;: ^ s;: s;? 


?;c5;s3;;5;s5;c5^ V 


OU %v «.*# 

^ #|-k 








-r 

- GETACK: 


RECEIVE AND INTERPRET ACK 


* 








FROM MCZ. 


GOOD ACK = '2' 












BAD ACK = '7' 


-Xt 

'T' 










ABORT = '9' 




















REG USE 


: RETURN 


Z.NC IF GOOD ACK 








*r 




NZ.NC IF BAD ACK 












NZ,C IF ABORT 








5{» ?{C SjC jjs 5{S SjC J>|? 5jC ?J*» 


v«> %v 

#1^ ^ ^ ^ ^ ^ 


* j 






ENTRY 








01 5 A 


D048 


CALR 


MCZCOM 


! GET CHR ! 




015C 


0A09 


CPB 


RL1,#'0' 


! CK FOR ACK ! 




r'15E 


3030 










0160 


2E04 


JR 


NZ ,NACK 


! NO ! 




0162 


D060 


CALR 


SKIPLN 


! YES, RSC ACK 


! 


0164 


8D41 


SETELG 


Z 






0166 


6D83 


RESFLG 


C 






016° 


9E08 


RET 












! CK FOP. '7 


' AMD '9' 


NON-ACKNOWLEDGEMENTS ! 






NACK: 








016A 


0A09 


CPB 


RLl,# '7' 


! CK FOR RESEND ! 


016C 


3737 










016E 


EE04 


JP 


NZ, ABRT 


! NO ! 




0170 


E067 


CALR 


SKIPLN 






0172 


8D43 


RESFLG 


Z 






0174 


8D83 


RESFLG 


C 






0176 


9E09 


RET 












! CHECK FOP 


ABORT ! 










ABRT : 








0178 


0A09 


CPB 


RL1,#'9' 






01 7A 


3939 










017C 


E602 


JR 


Z, ENDIT 


! YES, ABORT.. 


. ! 


017E 


D050 


CALR 


recmsg 


! GET ANOTHER 


CHR 


0180 


E8EC 


JR 


GETACK 


! TRY .^GAIN... 


j 






ENDIT; 








0182 


D070 


CALR 


SKIPLN 






0184 


SD43 


RESFLG 


Z 






0186 


8D81 


SETFLG 


C 






0188 


9E08 


RET 








01 8 A 




END GETACK 
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318A 



018A 

018C 

018S 

0190 

0192 

0194 

0196 



0198 
019A 
019C 
019E 
01A0 
01A2 
01 “4 



C1A6 
01AS 
01 AA 
01AC 
01AS 



01B0 

01B2 

01B4 

01E6 

01B8 

01BA 

01BC 

01BE 

01C0 



LINRCT PROCEDURE 

V** 

#1% #1^ 



% 

-Y* ^1** ^ 



LIMPCT: RECEIVES LIME OF CHA^ FROM * 

* MCZ AFTER RECEIPT OF V ' , * 

•'!' AND STORES IN INTBUF, ADDING* 

* CR AT END AND FILTERING OUT * 

* CONTROL CHARACTERS. (<20H) * 

*■ (TPUNC»TES AFTER 80 CHAR) * 

?{c sjs 





kV 


^ 


UU *A^ 

#1^ 




ENTRY 








! WAIT FOR ASCII / ! 




D056 


CALH 


RECMSG 




0A08 

2F2F 


CPB 


RL0,#V' 




EEFC 


JR 


NZ , LINRCT 


! WAIT ! 




! BEGIN 


STORING CHARACTERS ! 


76E4 


LDA 


R4, INTBUF(R14) 


0000 

CB50 


LDB 


RL3,#80 


!SET LINE LENGTH 




! STORE 
LOPSTR: 


CHAR IN INTBUF ! 




D05D 


CALR 


RECMSG 


! GET char ! 


2E48 


LDB 


OR4,RL0 


! STORE ! 


0A08 

0D0D 


CPB 


RL0,#CR 


! CK FOR END ! 


EE02 


JR 


NZ , SKPSOM 


! GOT CHAR. . ! 


D07C 


CALR 


SKPB 




9E08 


RET 








ICONTROL 


CHAR FILTERED AND DEC LINE COUNT 




SKPSOM: 






0 A08 


CPB 


RL0,#' ' 




2020 

E7F6 


JR 


C , LOPSTR 




»940 


INC 


R4,«l 


! GOOD CHAR ! 


FB0C 


DBJNZ 


HL3, LOPSTR 


! DEC COUNT ! 




ITRUNCATE, TOO MANY CHAR 


1 




LOPOVE : 






D069 


CALR 


RECMSG 




0A08 


CPB 


RL0,#CR 


! LOOK FOR CR f 


0D0D 

EEFC 


JR 


NZ ,LOPOVP. 




76ED 


LDA 


R13,INTBUF(R14) 


0000 

010D 

0050 


ADD 


R13,#80 




2ED8 


LDB 


0R13,RL0 
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01C2 


9E08 


HET 




01C4 




END LINRCT 


?1C4 




UNPACK 


PROCEDURE 






3!c 


sit :{J Jj: sis :jc « s|! 5|t # ^ # 5): :}: # sis ^ 5!; # jje jjs :)£ 5}: # :{t 5J5 s;c St! -t Jjc 






* UNPACK; UNPACKS RECEIVED PACKETS * 








FROM MCZ IN INTBUF AND * 








LOADS IN SPECIFIED MEMORY * 








AREA. ASCII CHAR ARE CON- * 








VERTED TO HEX VALUES. * 

v*5 






xREG 


USE; INPUT RH3 = #3YTE DATA * 






5js5}:>;5:<j3jc5}:;jc:;c5;<5;j:{:^3jc5;s3;c5p:}t;jc5^:;c:;s^5*«?jc3{ca:s?;s3;c3;eaj:^:{c;;f5}s5;c^xs5r5{snc f 






ENTRY 




01C4 


A03C 


LDB 


RL4,RH3 ! SAVE COUNT ! 


01C6 


DFDF 


CALR 


CONVAD ! CONV START ADR ! 






! CHECK 


FOR USER ENTERED ADDR FOR LOAD ! 


01C6 


0B0B 


CP 


Rll ,#%FFFE 


01CA 


FFFE 






01CC 


F601 


JR 


Z.USE MCZADR 


01C^ 


AlBl 


ID 


R1,R11 ! USER SPECIFIED ! 






USE MCZADR; 


01D0 


76F2 


EDA 


R2, INTBUF(R14) 


01D2 


0000 






01D4 


A927 


INC 


R2,#8 






CANDS ; 




01D6 


DFF8 


CALR 


TRNHEX ! CONVERT 2-ASCII CHR ! 


01D8 


2E18 


LDB 


0R1.RL0 ! STORE IN MEM ! 


01DA 


4910 


INC 


R1 ,#1 


01DC 


FC04 


DBJNZ 


RL4, CANDS ! CONV AND STORE ALL 1 






! UPDATE 


USER SPECIFIED ADDRESS ! 


01DS 


0B0B 


CP 


R11,#%FFFE 


01E0 


FFFE 






01E2 


E601 


JR 


Z,NO UPDATE ! USE MCZ ADR ! 


01E4 


AllB 


LD 


R11,R1 ! UPDATE USER ADR I 






NO UPDATE: 


0126 


9E08 


RET 




01E8 




END UNPACK 
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01E8 



TRNHEX PROCEDURE 

-jt* 

-r* 

TRNHEX: CONVERTS TWO ASCII CHAR FRM - 
=5“ INTBUF TO TWO 4-BIT HEX # - 

=** AND ADD TO CKSUM . * 



=»= REG USE: INPUT R2 = PTR TO 1ST CHR 
=f' P.L3= CKSUM ACCUM * 

* RETURN R2 = UPDATE PTR - 

* RL3= UPDATED ACCUM « 

“S' RL0= HEX VALUE - 

* AND C IF NON-ASCII - 

* NC IF ALL GOOD * 







#l« ^1% 


'JU %*« •«(« «V «*' «*# 

»i^ •ni» *i» »i» »*• ■*«' •r *1'* 


Jjl 5{C f 






ENTRY 








01S8 


DFF6 


CALR 


ATOHEX 


! CONVERT 1ST 


CHR ! 


01EA 


9E07 


RET 


C 






01EC 


S08B 


ADDB 


FL3.RL0 


! ADD TO CKSUM 


; 


01EE 


E309 


SLA 


R0,#12 


! MOVE TO H NIBBLE 


01F0 


000C 










01F2 


DFFB 


CALR 


ATOHEX 


! CONVERT 2ND 


CHR ! 


01F4 


9E07 


RET 


C 






01F6 


808B 


ADDB 


RL3.RL0 






01F8 


8408 


ORB 


RL0,RH0 


! COMBINE NIBBLES ! 


01FA 


SD83 


RESFLG 


C 






01FC 


9E08 


RET 








01FE 




END TRNHEX 








01FE 




ATOHEX PROCEDURE 










f ^ «JU JU 

1 ^ 




5^ s;c 3{< 5[C sje s;? 5j« 3{C Jjs 5|< s,*: ^ Si's 






* ATOHEX: 


CONVERTS 


ONE ASCII CHAR TO 










4-BIT HEX NIBBLE. 








« REG USE 


: INPUT 


R2 = PTR TO CHR 


o> 

*r 






❖ 


RETURN 


R2 = PTR + 1 


n* 










RL0= HEX NIBBLE 














5:« 



•Ju «JU«^ ^ «JU ^1# 4^ f 

^1% ^1% ^1% «i|^ ^1% ^1% #|« I 

ENTRY 



01FE 


2028 


LDB 


RL0,0R2 


0200 


A920 


INC 


R2,f^l ! INC 


0202 


34 C A 


LDA 


E10,R12(#CONVERT) 


0204 


0000# 






0206 


1EA0 


CALL 


OR 10 


0208 


9E08 


RET 




020A 




END ATOHEX 
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020A 




CONVAD PROCEDURE 








Jr 


WU ..V »•# J* •»•<» 

<,« 






* CO MV AD: 


CONVERTS 


STARTING ADDRESS - 








OF PACKET 


DATA TO HEX #. - 
















* REG USE 


: RETURN 


R1 = ADDRESS (HEX) >i= 

-** 






*r 




5|;:}c :{c ^ :{i: 3{c3;<: sjc sjc :<s sjc :<s 3{c ^ 5jc 5^ ^ 






ENTRY 






020 A 


76E2 


LDA 


R2, INTBUF(R14) 


020C 


0000 








020S 


D014 


CALR 


TRNHEX 




0210 


A081 


LDB 


RH1,RL0 


! STORE 1ST BYTE 


0212 


D016 


C‘LR 


TRNHEX 




0214: 


A089 


LDB 


RL1.RL0 


! STORE 2ND BYTE 


0216 


9E08 


RET 






0213 




END CONVAD 
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CHKPAK PROCEDURE 





f 5j«5;c3;c5;i5j:5;c3*s5;j5;c3;c:ic:is>;c5{c5;s:;r:{c:;c3!c5;5 

3js 5{« 

« CHKPAK: CK RECEIVED MCZ PAC CKSUM - 

AGAINST accumulated HEX 
value CKSUM AFTER ASCII-TO- - 

* HEX CONVERSION. 

5J5 * 

* REG USE: RETURN RH3 = BYTE COUNT * 

* AND C IF BAD OR - 

* NON-ASCII. * 

r* « 

# 5}:# :!c:Ss# [ 

ENTRY 



0218 


76E2 


LDA 


R2,INTBUF(R14) 




021A 


0000 










021C 


C303 


LDB 


RH3,#3 






02 IE 


DFF9 


CALR 


CHKSUM 


[ 


CK 1ST CKSUM ! 


0220 


9E07 


RET 


C 


f 


BAD CK ! 


0222 


SC34 


TESTS 


RH3 






0224 


9E06 


RET 


Z 


I 


NO data ! 


0226 


93F3 


PUSH 


0R15,R3 


f 


SAVE BYTE COUNT ! 


0228 


DFFE 


CALR 


CHKSUM 


I 


CK 2ND CKSUM ! 


022A 


97F3 


POP 


R3.0R15 






022C 


9E08 


RET 








022E 




END CHKPAK 
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022E 


CHKSUM 

1 •!« OU 

1 ''I* 'r 'I* *x- 


PROCEDURE 

%iu %w %V ^ ^ 

^1% ^1% 4r.% #!«. ^1%^^ 








CHKSUM: CONVERTS ALL REC ASCII CHR 


5JC 

❖ 




?!< 




IN PAC 


TO HEX AND AC CUM NEW 


«•« 

-rr- 








CKSUM. 


COMPARE CKSUMS AND 


:{< 








REPORT 


DIFFERENCES . 


«w. 

'T 

*K. 






REG 


USE: INPUT 


R2 = PTR TO PAC 












RH3= # CHR PAIRS 


*V* 








RETURN 


RH3= BYTE COUNT 






515 






RL3= NEW CKSUM 


5j5 




5{S 






RH3= REC CKSUM 


-V 




❖ 






AND C IF BAD OR 


❖ 



'^ON-i^SCII FEC 







5|:^5}: 3!s:|C7;«s{C5;?5|c:it 


j|; 5^ ;;; t- # 5>: JjsJl 




O# «V ^ ^ %c vu 1 

>1^ >1% 0^% ^1% #|« ^1^ 1 






ENTRY 








022E 


SCB8 


CLRB 


RL3 


1 


RESET CKSUM ! 


0230 


D025 


ABrCALR 


TRNHSX 


f 


CONVERT PAIRS ! 


0232 


9E07 


RET 


C 






0234 


F303 


DBJNZ 


RH3, AB 


! 


CONTINUE ! 


0236 


A083 


LD3 


RH3,RL0 






0238 


93F3 


PUSH 


0F15.R3 


J 


SAVE BYTE CNT ! 


023 A 


D02A 


CALR 


TRNHEX 


! 


CONVERT NEXT TWO 


023C 


97F3 


POP 


R3 ,(?R15 






023E 


9E07 


RET 


C 






0240 


8AB8 


CPB 


RL0,RL3 


1 


COMPARE CKSUMS f 


0242 


9E06 


RET 


Z 


! 


GOOD CK. . . ! 


0244 


8D81 


SETFLG 


C 


; 


BAD CKSUM ! 


0246 


9E08 


RET 








0248 




END CHKSUM 
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("248 



(^248 

024A 

024C 

024S 

0250 

0252 

0254 

0256 

0258 

025A 

025C 

0252 

0260 

0262 

0264 

0266 

0268 

026A 

026C 

026F 

0270 

0272 



GLOBAL 

LOADFL PPOCEDURE 



*w ««« Vo 

^ ‘Tf» ^ 









* LCADEL: RECEIVES PACKET FROM MCZ IM 

* FOLLOWING FORMAT: * 

« sis 



* <ADR><CNT><CKS1XDTA>. . .<DTAXCKS2> 

'r* 'r 

* ADR = START ASR IN Z8000 MEM - 

’5' CNT = # DATA WORDS - 

* CKS1= CKSUM OF <ADR> + <CNT> * 

* <DTA>..XDTA> = 30 DATA WORDS * 

- CKS2= CKSUM OF DATA HEX VALUES * 

* # 

* PROCEDURE VERIFIES CKSUMS BEFORE * 

>!= STORING DATA IN Z8000 MEM. PACKETS 

- ARE ACK FOR WITH: '0' = GOOD * 

« ' 7 ' = RESEND * 

* '9' = ABORT * 

* IF REC '//' FROM MCZ, ECHOS WHAT * 

* REC NEXT TO CONSOLE AND ABORT. * 

if if 

ififififififififiifififififififificifififif:i^ilficifiiif3i:ifififififififififififif i 



ENTRY 



D125 


CALR 


65E4 

031C 


SET 


D109 


CALK 


9E06 


RET 

RECLOP: 


D065 


CALR 


76E2 

0000 


LDA 


2028 


LDB 


0A08 

2F2F 


CPB 


FE10 


JR 


76E1 

0080 


LDA 


2103 

0020 


LD 


BB21 

0310 


LDIR 


76E1 

0080 


LDA 


0101 

0020 


ADD 



FNAME ! CK FILENAME ! 

MFLAGS (R14) ,#LDMDE ISIGNAL LOAD IN 

! PROGRESS! 

CMDPAS ! SND CMD TO MCZ f 

Z ! Z80 PROG NO LOAD ! 

LINRCT ! GET PACKET ! 

R2 ,INTBUF(R14) 

RL0.0R2 

RL0,#'/' ! CK FOR '//' ! 

NZ.CONTIN INO, CONTINUE...! 

R1 ,OUTBUF(R14) I YES,! 



R3 ,#%20 



0R1,0R2,R3 lERROR MSG SETUP ! 
R1 ,0UTBUF(R14) 

R1 ,#%20 



80 



?274 


6FE1 


LD 


0UTPTR(R14) ,R1 


!SET OUTPTR ! 


0276 


0306 








0278 


34CA 


LDA 


R10,R12(#?3UFNC 


) 


027A 


0000* 








027C 


1EA0 


CALL 


OR 10 




027E 


9E09 


RET 










CONTI N : 






02S0 


67E5 


BIT 


MFLA0S(R14) ,#ESC ! CK FOP ABORT 


0282 


031C 








02S4 


EE34 


JR 


NZ.ABT ! 


YES , ABORT ...» 


0286 


D038 


CALR 


CEKPAK ! 


CK CKSUMS ! 


0288 


EF02 


JR 


NC.ODLD ! 


GOOD LOAD ! 


028. A 


D0.»8 


C »LF. 


BADPAK ! 


SEND NON-ACK ! 


028C 


ESF2 


JR 


RECLOP ? 


TRY AGAIN ! 






! CHECK FOR 
G1)LD: 


LAST PACKET AND 


PRINT <SNT ADR> ! 


028S 


8C38 


CLRB 


RL3 




0290 


8138 


ADD 


R8,R3 ! ACCUM 


number bytes ! 








! OF TRANSFER f 


0292 


8C34 


TFST3 


RH3 ! 


CK COUNT=0 ! 


0294 


EE28 


JR 


NZ,STOR ! 


OK, BEGIN STR ! 


0296 


D0AA 


CALR 


GODPAK ! 


SEND GOOD ACK ! 


0298 


54E0 


LDL 


RR0, INTBUF(R14) 




029A 


0000 








029C 


76ED 


LDA 


R13,0UTBUF(R14) 




029E 


0085* 








02A0 


010D 


ADD 


R13, #%0C 




02A2 


000C 


! CHECK FOE 


USER SPECIFIED 


ADDR ! 


02A4 


0E09 


CP 


R9 ,#%AAAA 




02A6 


A AAA 








02 A8 


E61D 


JR 


Z,END LOAD ! 


NO ECHO TO CONS ! 


02AA 


0B0B 


CP 


R11,#%FFFS ! 


CK FOR LOAD ADR ! 


02AC 


FFFE 








02 A E 


F608 


JR 


Z.SAME .ADR ! 


USE MCZ ADR ! 


02E0 


6FED 


LD 


0UTPTR(R14) ,R13 


! SET OUTBUF ADR 


02B2 


0306 








02B4 


61E5 


LD 


R5,ADR_STR(R14^ 


! GET USER ADR ! 


02B6 


0344 








02BS 


76CA 


LDA 


R10,CONVW(R12) 




02BA 


0000* 








02BC 


1FA0 


CALL 


0R10 ! CONVERT TO ASCII AND 








! AND STORE IN OUTBUF 


02BE 


F801 


JR 


FIN BUF 





SAME ADH: 



31 



?2C0 1DD0 



LDL 0R13.RR0 



FIN EUF: 



?2C2 


3402 


LDAP 


P2. ENTADR !LOAD ENTRY LABEL! 


02C-i 


0040 






0206 


76E1 


LDA 


Rl,OUTBUF(R14) 


02C8 


0080 






02CA 


2100 


LD 


R0 ,#6 


02CC 


0006 






02CE 


BB21 


LDIR 


0R1,9R2,R0 


02D0 


0010 






02E2 


76ED 


LDA 


R13,0UTBUF(R14) 


?2D4 


0080 






02D6 


010D 


ADD 


R13,#%10 


02D8 


0010 






02DA 


6FED 


LD 


00TPTR(R14) ,R13 


02DC 


0306 






02EE 


34 CA 


LDA 


R10,R12(#PRNTBF) 


02E0 


0000* 






02E2 


1FA0 


CALL 


0R10 ! PRINT MESSAGE ! 






END LOAD 


• 


02E4 


9E08 


RET 








STOR; 




02E6 


D06? 


CALR 


CONVAD 


02E8 


D0F3 


CALR 


GODPAK ! SEND ACK ! 


02EA 


D094 


CALR 


UNPACK ! UNPACK AND STORE 


02EC 


E8B2 


JR 


RECLOP ! CONTINUE ! 






«BT: 




02EE 


3402 


LDAR 


R2.EMSG 


02F0 


000A 






02F2 


34CA 


LDA 


R10,R12(#SNDMSG ) 


02F4 


0000* 






02F6 


1FA0 


CALL 


0R10 ! SEND MESSAGE ! 


02FS 


D0DD 


CALR 


ABORTM ! SEND ABORT ! 


02FA 


9E08 


RET 




02FC 




END LOADFL 






EMSG : 




02FC 


07 


BVAL 


7 


02FE 


2F41 


WVAL 


Va' 


0300 


424F 


WVAL 


'BO' 


0302 


5254 


WVAL 


'RT' 


0304 


0D 


BVAL 


%0D 






ENTADR: 




0306 


454E 


WVAL 


'EN ' 


0308 


5452 


WVAL 


'TR' 


030A 


5920 


WVAL 


'Y ' 



82 



P3?C 5e4F 
030E 494E 
0310 5420 



WVAL '?0 
WV»L "IN 
WVAL 'T 



END LOAD CI^D 



4. REGISTER MODULE 



Z8000ASM 2.02 

LOG 03J CODE STMT SOURCE STATEMENT 

1 REGISTSR_CMD MODULE 
$LISTON $TTY 

❖ ❖ 

* REGISTER CMD: DISPLAYS CONTENTS OF ’i' 

* ALL USER (') REGS OR 

* EACH REGISTER INDIVIDUALLY IN THE * 

« SUBSTITUTION MODE. A 'Q' ENDS THE * 

’9' session; ^ CP ADVANCES IN ORDER 

* THROUGH REG CONTENTS WITHOUT ANY * 

* changes; AND A VALID HEX ENTRY * 

“S' WILL ALTEP THE REGISTER CONTENTS. « 

^ # 

* SYNTAX: REGISTER [<REG NAME>] * 



EXTERNAL 


EROR 


LABEL 


EXTERNAL 


GETCHR 


PROCEDURE 


EXTERNAL 


STOBUF 


PROCEDURE 


EXTERNAL 


DISP 


PROCEDURE 


EXTERNAL 


PRNTBF 


PROCEDURE 


EXTERNAL 


CONVB 


LABEL 


EXTERNAL 


GETNXT 


PROCEDURE 


EXTERNAL 


DISPNC 


LABEL 


EXTERNAL 


CONVW 


PROCEDURE 


^SECTION 
$REL 0 


REGISTER 


_PROC 



0000 30 20 

0002 31 20 

0004 32 20 

0006 33 20 

0008 34 20 

000A 35 20 

000C 36 20 

000E 37 20 



LKTBL ARRAY [- BYTE]:='0 12345 
6789 101112131415PCFCRLRH' 



84 



0010 


38 


20 


0012 


39 


20 


0014 


31 


30 


0016 


31 


31 


0018 


31 


32 


001 A 


31 


33 


001C 


31 


34 


001E 


31 


35 


0020 


50 


43 


0022 


46 


43 


0024 


52 


4C 


0026 


52 


48 



002e 



0028 BD6E 
002A 34E1 
002C 031E 
002E E803 



GLOBAL 

PRREG2 LABEL 
PRREGl PROCEDURE 

-[V •fe ^ 'Jf «JU "A# ^ »•> ^ »*<• V? ^ ^ wu«v ^ ^ V« »•« 

^ *Tr ^ ^ ^ ^ nr n* •nr **1' T* •1'* ^ •'f' *nr* ^ *ir ^ nr ^ ^r* •i'* 

OL> 

?? -*r 

* PRP.ZGl: OUTPUT CONTENTS OE USER * 

- REGISTERS 0-13 TO CONS. - 

« # 

* PEREG2: OUTPUTS CONTENTS OE USER - 

* REGS R14,R15,RPC ,REC . - 

* # 

ENTRY 

LDK R6,A^14 ! SET n REGS ! 

LDA R1,R14(#R0_) ! LOAD BASE ADR ! 

JR PLOOP 



! PRREG2 ENTRY POINT ! 

PRREG2 : 

0030 BD64 LDK R6,#4 ! SET 2ND LINE REG # ! 

0032 34E1 LDA R1 ,R14( #R14_ ) ! LOAD BASE ADR ! 

0034 033A 



! MAIN PRINT LOOP ! 
PLOOP: 



0036 


2115 


LD 


R5,0R1 




0038 


34CA 


LDA 


R10,R12(#CONVW) 


! CONVERT HEX TO 


003A 


0000- 








003C 


1EA0 


CALL 


OR 10 










; 


ASCII ! 


003E 


AB60 


DEC 


R6,#l 1 


DONE? » 


0040 


E604 


JR 


Z.PRNT ! 


OUTPUT IF YES ! 


0042 


69E0 


INC 


0UTPTR(R14) ,#1 




0044 


0306 








0046 


A911 


INC 


Rl,#2 ! 


GET NEXT REG ADR ! 


0048 


E8E6 


JR 


PLOOP ! 


LOOP ! 



85 



34CA 

0e(?0# 

1EA8 

BD0E 

3405 

A 

E805 

ED04 

3405 

FFA2 

0105 

001C 

3132 

0306 

0C25 

5252 

6930 

0306 

2151 

DFFA 

AB00 

36EA 

69E1 

0306 

A951 

E8F2 



PENT : 

LDA R10,R12(^PRNTBF^ 

JP 0R10 



END PRREGl 



GLOBAL 

RGHDR2 LABEL 

HGHDRl PROCEDURE 



- RGEDRl: OUTPUT HEADER FOR REGISTERS - 
« F.0 - R13. * 
❖ # 






❖ 



RGHDR2: OUTPUT HEADER FOR REGISTERS * 
R14, R15, RPC, RFC. - 



ENTRY 

LDK 

LDAR 



OU f 

^ ?? 5^ r|^ ^ ^ ^ 5|% #Tf> #1% #1% I 

R0,#14 ! SET PRINT COUNT ! 

R5 .LKTBL 



JR HLOO? 



I SECOND HEADER ENTRY POINT ! 

RGHDP2: 

LDK R0,#4 ! SET PRINT COUNT ! 

LDAR R5,LKTBL 

ADD R5,#28 



! MAIN PRINT LOOP ! 
HLOOP: 



LD 

LDB 

INC 


R2 ,R14(#0UTPTR) I LOAD OUTBUF INDEX 

0R2,#'R' 

0UTPTR(R14) 


LD 


R1 ,0R5 


! GET CHR FROM TABLE ! 


CALR 


STOBUF 


! STORE IN OUTBUF ! 


DEC 


R0,#*1 


I DONE? ? 


JR 


Z ,PRNT 


1 YES , OUTPUT BUFFER 1 


INC 


0UTPTR(R14) 


,#2 ! NO, CONTINUE! 


INC 

JR 


R5 ,#2 
HLOOP 


I ADVANCE TABLE INDEX! 



86 



007E 


END RGHDRl 








CxLOBAL 






0 07E 


STOBUF PROCEDURE 








1 V** wy yy yy yy yy vy yy 

1 «(« *Y<. <Y* ^ ^ Of* 'I' •*«*n» •>'»«• ^ *r» •¥• *»* nr nr ^ <ty nr »r* ^ ^ "r 




'1* 

* STOBUF: STORES CONTENTS 


0? REGISTER 






- INTO OUTBUF AND 


INCREMENTS 


❖ 




* OUTPTR. 




«y 








5)« 



- r::g USS: input hi = contents 










^ ^ Vr yy yy *y v<* *y 

^ nr n* ^ nr 'r nr 


%i# y^ y^ y^ y« %v y^ t 

rf« ^1% r|% #1^ #1^ #1% r|« | 






ENTRY 




007E 


93F4 


PUSH 


0R15.R4 ! SAVE VORK REG 


0080 


61E4 


LD 


P4,0UTPT?(?.14) 


0082 


0306 






0084 


2E41 


LDB 


GR4.RH1 ! STR 1ST BYTE ! 


0086 


A940 


INC 


R4 


0088 


2E49 


LDB 


0R4.PL1 ! STR 2ND BYTE ! 


008A 


69S1 


INC 


0UTPTR(R14) ,ti2 


008C 


0306 






00SE 


97E4 


POP 


^4,GR15 ! RESTORE WPK PE 


0090 


9E08 


RET 




0092 




END STOBUF 








GLOBAL 




0092 




REGISTER PROCEDURE 






f :;«3;c3«S3!c3{;:ls3{;3{c3{t5{s:!: 








-r 

- REGISTER 


'r 

: DISPLAY AND ALLOW CHANGE - 








OF USER REGISTERS. - 






- REG USE; 


INPUT ALL * 






nr 

«y 


RETURN SAME ^ 






nr 

«y yu yy yy yy yy yy yy 

nr 'r *r ^r *r *r ^r 


< y^ %V y^ y« «v y# y^ y^ f 

4^ #1^ ^Tn •v* *T* 1 






ENTRY 




0092 


340B 


LDAR 


R11,LKTBL 


0094 


FF6A 






0096 


34C A 


LDA 


R10,R12(#GETNXT) 


0098 


0000*‘' 






009A 


1FA0 


CALL 


0R10 ! SKIP REST CMD ! 


009C 


EE01 


JR 


N2 ,AM 


009E 


E85B 


JR 


PRNTAL 


00 A0 


0A08 


AM :CPB 


RL0,#'R" 


00A2 


5252 






00A4 


EE22 


JR 


NZ .GLOBER 



I CHECK DISPLAY MODE - R, RR , RH, RL ! 



87 



00A6 34CA 


LDA 


R10,R12(#GSTCHR) 


00A8 0000* 








00AA 1FA0 


CALL 


0R10 


! GET NXT CHR ! 


P0AC E61S 


JR 


Z.GLOBER 


! ERROR ! 


00AE A08E 


LDB 


RL6.HL0 


! GET FIRST CHR ! 


0030 0A09 


CPB 


RL0,#'R ' 


! CK FOR 'RR' ! 


00B2 5252 








00E4 E608 


JR 


Z. PEGID 


! YES, GET REG ID 


00B6 sees 


CLR3 


RH6 




P038 0A08 


CPB 


RL0.#'L' 


! IS LOW BYTE? ! 


00BA 4C4C 








00BC E604 


JR 


Z. REGID 


! YES, GET REG ID 


00BE C602 


LDB 


RH6,#2 




00C0 0A08 


CPB 


RL0,#'H' 


! IS HIGH BYTE? ' 


00C2 4848 








00C4 EE04 


JR 


NZ.SAVID 





00C6 

00C8 


34CA 

0000* 


LD-^ 


00CA 


1FA0 


CALL 


00CC 


E60E 


JR 

SAVID: 


00CE 


A081 


LDB 


00D0 

00D2 


34CA 

0000* 


LDA 


00D4 


17A0 


CALL 


00D6 


EE02 


JR 


00D8 


C920 


LDB 


00 DA 


E801 


JR 

SAVID2: 


00DC 


A089 


LDB 
! FIND 
FNDN »M: 


00DE 

00E0 


2108 

0012 


LD 


00E2 


«1B9 


LD 


00E4 

00E6 


BB94 

0816 


CPIR 


00E8 


E603 


JR 

GLOBER; 


00EA 

00EC 


34CA 

0000* 


LDA 


00EE 


1EA8 


JP 


00F0 


AB91 


AJtDEC 


00F2 


2102 


LD 



! GET REGISTER ID NUMBER ! 
REGID: 

R10,R12(#GETCHR) 



0R10 

Z.GLOBER 



! GET 1ST CHAR ! 



RH1,RL0 

R10,R12(#GETCHR) 



0R10 

NZ .SAVID2 
RLl,#' ' 
FNDNAM 

RL1,RL0 
[D IN REG ] 

R8,#18 



! GET 2ND CHR ! 

! PAD WITH SPACE ! 

! SAVE BOTH DIGITS ! 
UP TABLE ! 

! TABLE LENGTH ! 



R9,R11 ! BASE OF LKUP TBL ! 

R1,0R9,E8,EO ! LOOK FOR MATCH I 



Z,AJ 



R10,R12 (#EROR) 
0R10 



R9,#2 
R2 ,#17 



1 ADJUST CORRECT ADR! 
! DETERMINE REG MEM ! 



88 



00F4 


0011 












00F6 


6382 


SUB 


R2 ,R8 


J 


INDEX ! 




00F8 


A 128 


LD 


R3.R2 








00FA 


E3S1 


SLL 


F.S ,#1 








00FC 


0001 
















! DETERMINE 


DISPLAY MODS 


OUTLINE ! 




00FF 


0A0E 


CPB 


RL6,#'H' 


; 


RL6=M0DF ! 




0100 


4648 












0102 


E65E 


JR 


Z.3YT 


j 


BYT MODE ! 




0104 


0A0E 


CPB 


?.L6,#^' 








0106 


4C4C 












0103 


E65B 


JR 


Z,BYT 


j 


ALSO BYTE '^ODS 


f 


01 0A 


0A0E 


CPB 


RL6,#'P/ 








010C 


5252 












010E 


E628 


JR 


Z.LWORD 


1 


LONG WORD MODE 


} 






! SINGLE WORD DISPLAY MODE 


ROUTINE ! 








SWORD; 










0110 


2101 


LD 










0112 


5220 












0114 


D04C 


CALR 


STOBUF 


1 


STORE IN OUTBUF 


! 


0116 


63E0 


DEC 


0UTPTR(R14) , 


#1 






0118 


0306 












011A 


2191 


LD 


R1 ,0R9 


! 


STORE REG ID I 




011C 


D050 


CALR 


STOBUF 








011F 


69 E0 


INC 


OUT?TR(R14) , 


#1 


! ADD SPACE 


I 


0120 


0306 












0122 


34ED 


LDA 


R13.R14(#R0 


_) 






0124 


031E 












0126 


71D5 


LD 


R5,R13(R8) 








0128 


0800 












012A 


34CA 


LDA 


R10,R12(#DISP) 






012C 


0000* 












012E 


1FA0 


CALL 


0R10 


J 


OUTPUT TO CONS 


1 


0130 


9E07 


RET 


C 


! 


EEC 'O' ! 




0132 


E60A 


JR 


Z.SAME 


! 


REC CR, STAYS ! 


SAME ! 


0134 


2192 


LD 


R2,0R9 








0136 


34BA 


LDA 


R10,R11(#34) 








0138 


0022 












013A 


8BA2 


C? 


R2,R10 








013C 


EE01 


JR 


NZ .JMPOVR 




! NOT PC REG ! 




013E 


A330 


RES 


R3 ,#0 




1 CHG TO EVEN ADR ! 






JMPOVR : 










0140 


76ED 


LDA 


R13,R0_(R14) 




I CHG REG CONTENTS ! 


0142 


031E 












0144 


73 D3 


LD 


R13(R8) .R3 








0146 


0800 


SAME ; 










0148 


A981 


INC 


R8 .#2 




! ADJ REG INDEX 


j 



89 



314A 


A991 


INC 


R9,#2 


! ADJ TABLE ADR ! 


P14C 


34B3 


LDA 


R3,R11(<<35) ! GET END 02 TBLE 


3142 


0023 








0150 


8339 


CP 


R9,R3 


! END 02 TABLE? ! 


0152 


27DE 


JR 


C .SWORD 


! NO, CONTINUE..! 


0154 


9208 


RET 




! YES, DONE ! 






! ROUTINE TO PRINT ALL 


HEADERS AND CONTENTS 






PENT AL: 






0156 


D084 


CALR 


RGHDRl 




0158 


2099 


CALR 


PHREGl 




0 1 5 A 


D082 


CALR 


RGHDR2 




015C 


D097 


CALR 


PRREG2 




015E 


9208 


RET 










! LONG WORD 


DISPLAY MODE ROUTINE ! 






LWORD: 






0160 


A13D 


LD 


R13.R11 ! 


R15 ADDR ! 


0162 


010D 


ADD 


R13,#30 




0164 


0012 








0166 


83D9 


CP 


R9 ,R13 




0168 


22C0 


JR 


NC .GL03ER 


! RR0 - RR14 OE ! 


016A 


0A09 


CP3 


RLl,#' " 


! CK 12 DIGIT REG 


016C 


2020 








0162 


2602 


JR 


Z.2VNCK 




0170 


A710 


BIT 


P1,#0 ’ 


CK 12 2ND CHR EVEN ! 


0172 


2601 


JR 


OVER 








EVNCK : 






0174 


A716 


BIT 


R1 ,#8 








OVER : 






0176 


2239 


JR 


NZ .GLOBER 








I LONG WORD 


DISPLAY MODE ROUTINE ! 






LWLOOP: 






0178 


2101 


LD 


R1,#'RP/ 




017A 


5252 








017C 


1)080 


CALR 


ST0EU2 


f STORE IN 0UTBU2 ! 


0172 


2191 


LD 


R1 ,0R9 




0180 


1PA0 


CALL 


0R10 ! ADD REG ID ! 


0182 


6920 


INC 


0UTPTR(R14) 


,#1 ! ADD SPACE ! 


0184 


0306 








0186 


3424 


LDA 


R4,R14(#R0_ 


) f LOAD 1ST WORD ! 


0188 


0312 








018A 


7145 


LD 


R5,R4(R8) 




018C 


0800 








0182 


34 C A 


LDA 


R10,R12(#CONVW) 


0190 


0000>^ 








0192 


12A0 


CALL 


OP 10 


! CONVERT 1ST ! 


0194 


A941 


INC 


R4,#2 




0196 


7145 


LD 


R5,R4(R8) ! 


LOAD 2ND WORD ! 
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?198 

019A 

019C 

019F 

01A0 

01A2 

01A4 

01A6 

01A8 

eiAA 

01AC 

01AE 

01B0 



0132 

0134 

0136 

0138 

01BA 

01BC 

013E 



01C0 

01C2 

01C4 

01C6 

01C8 

01CA 

01CC 

01CE 



0130 

01D2 

01D4 

01D6 

01D8 

01DA 

01DC 

01DE 

01F0 

01E2 

C1E4 

01E6 

01E8 

01EA 

01EC 



0800 








34CA 


LDA 


P10,F12f#DISP) 




0000^ 








1FA0 


C^LL 


0R10 




9E07 


BET 


C 




E607 


J3 


Z, AROUND ! REC CR , NO 


CHG 


34E4 


LD« 


R4,P14(i#R0_) 




031E 








7342 


L3 


R4 (R8) ,R2 




0800 








A941 


INC 


P4,#2 




7343 


LD 


R4(R8) ,R3 




0800 










AROUND; 






A 983 


INC 


RS,#4 




A993 


INC 


P9,«4 ! INCREMENT TO 


NEXT 


3433 


LDA 


R3,R11(#16) 




0010 








8339 


CP 


R9,R3 ! FINISHED? ! 




E7DD 


JE 


C, LWLOOP 




9E08 


BET 


! DONE ! 






! BYTE 1 


DISPLAY ROUTINE ! 






BYT; 






A134 


LD 


R4,R11 




«947 


INC 


R4 , #8 




8349 


CP 


R9,R4 ! CK IF REG 


>R7 


EF91 


JB 


NC ,GL03SR 




3361 


S?L 


R6,#3 




FFF8 








SE01 


JB 


NZ .THRU 




A980 


INC 


R8 






THRU; 






A134 


LD 


R4,R11 




0104 


ADD 


R4,^18 




0012 








7141 


LD 


R1 ,R4(R6) 




0600 








D0AF 


CAL? 


ST03UF ! STORE IN OUTBUF 


2191 


LD 


R1 ,0RS 




1FA0 


CALL 


0R10 




31E4 


LD 


R4,R14(#R0_) 




031E 








704D 


LDB 


RL5, R4(R8) 




0800 








34 C A 


LDA 


R10,R12(#CONVB) 




0000’<‘ 








1FA0 


CALL 


0R10 f CONVERT WORD ! 



91 



01EE 


69E0 


INC 


0UTPTR(R14) , 


#1 


0iFe 


0306 








01F2 


34CA 


LDA 


R10,P12(#DISPNC) 


01F4 


0000* 








01 F6 


1FA0 


CALL 


GR10 ! OUTPUT, CK FOR INPUT ! 


01F8 


9E07 


RET 


C 


! FINISHED, PEC 'Q' ! 


01FA 


E604 


JR 


Z.ABA ! 


REC CR, STAYS SAME 1 


01FC 


34E4 


LD4 


R4,R14(tfR0_ 


) 


01FE 


031E 








0200 


7243 


LD5 


R4(R8) ,RL3 




0202 


0800 












A3A; 






0204 


A980 


INC 


R8 ,#1 




0206 


A361 


DEC 


R6 .#2 


! INCREMENT INDEXES ! 


0208 


E6E3 


JR 


Z.THRU 


! OUTPUT LOW 3YTS ! 


020A 


2106 


LD 


R6,#2 




020C 


0002 








020E 


A991 


I NC 


R9,#2 ! 


GET NEXT BYTE GRP ! 


0210 


A133 


LD 


R3,R11 




0212 


4 937 


INC 


R3,#8 




0214 


8339 


CP 


R9.R3 


! CK FOR END ! 


0216 


E7DC 


JR 


C.THRU 


I NO, CONTINUE...! 


0218 


9E08 


RET 




! YES. ! 



021A END REGISTER 

END REGISTER CMD 
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5. DISPLAY MODULE 



Z8000ASM 
LOG OBJ 



.02 

CODE STMT SOURCE STATEMENT 

1 DISPLAY_CMD MODULE 
$LISTON $TTY 

J 

ff 

* DISPLAY CMD: DISPLAYS CONTENTS OP - 

’i' SPECIFIED MEMORY LOC * 

* WITH ABILITY TO CHANGE CONTENTS 

- OF MEM. AS PER <CNT>. CONTENTS - 

APE DISPLAYED 16-BYTES /L I NE WITH* 

* SPACE BETWEEN BYTES /WORDS/LVORDS 

* AS SELECTED [B/W/L] . WITHOUT 

* COUNT, CONTENT IS DISPLAYED IN 

* UNIT B/W/L. ENTERED DATA WILL 

* CHG contents; cr will not; and 

* 'O' WILL EXIT CMD. 

•T* 

* FILL: STORES GIVEN DATA(WORD) 

* IN ALL INCLUSIVE MEMORY LOC 

* DEFINED BY <BGN ADR> AND 

* <END ADR>. 

* MOVE: MOVES BLOCE OF DATA AS 

* DEFINED BY SIZE <SIZ> FROM 

* START ADR <SCR> TO BEST. 

* ADR <DSTC . 

* SYNTAX: DISPLAY <ADR>[<CNT>HB/W/L] 

* MOVE <SCR> <DST> <SIZ> 

* FILL <BGN ADRXSND ADR><WD> 



CONSTANT 

{ INCLUDE GLOBAL CONSTANTS ) 

EXTERNAL EROR LABEL 
EXTERNAL ASCEEX PROCEDURE 
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a * -:!• ■» «■ it a a -si- w -,t -it 



GLOB iL 

iSSCTION DISPLAY PROG 
iREL 0 



GLOBAL 

0000 SKPBLK PROCEDURE 

- SKPBLK: SKIP OVER BLANKS TO NEXT 

* CHARACTER. * 

nr nr 

* REG USE: RETURN RL0 = 1ST NON-ELK * 

CHAR AND Z IF =CR * 

| 



ENTRY 

! SKIP OVER BLANKS TO NEXT ARGUMENT ! 



0000 


DFE0 


CALR 


GETCHR 




0002 


9E06 


PET 


Z 


! GOT CP ! 


0004 


0A08 


CPB 


RL0,#' ' 


! CK FOR BLANK ! 


0006 


2020 








0008 


E6F3 


JR 


Z, SKPBLK 


! YES ! 


000A 


9E08 


RET 




! GOT CHAR ! 


000C 




END SKPBLK 








GLOBAL 






000C 




GETADR 


PROCEDURE 





! »X* %JU >V OU *p^ «JU «4U ^ o# %JU V# ^0 ^ 

^1% «|W Si^ ^1% ^1% 0^ mfm ^1% #1^ #1^ ^1% #1^ 

5? # 



- GETADR: GETS NEXT ARGUMENT AND - 

* CONVERTS TO HEX ADDRESS. « 

# # 



* PEG USE: INPUT RL0 = 1ST CH OF ARG =«' 

RETURN R3 = HEX ADR * 

« AND Z,C IF CR ONLY* 

* Z,NC IF ARG,CR 

* NZ,NC IF ARG.SP 






ENTRY 

! CK FOR CR ONLY ! 



000C 


8D38 


CLR 


R3 




000E 

0010 


0A08 

0D0D 


CPB 


RL0,#CR 


! CK FOR CR ! 


0012 


EE02 


JR 


NZ ,NOTCR 




0014 


8D81 


SETFLG 


C 




0016 


9E08 


RET 




! RETURN FOR CR ONLY 
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-if 



ICONVERT ASCII ADDRESS TO HEX ADDRESS ! 
NOTCH: 



0018 


DFE2 


CALR 


CONVERT 


!BYTE TO 4-BIT HEX ! 


001A 


E70A 


JR 


C, REP ERR 


! GOT BAB CHR I 


C'01C 


BEB8 


RLDB 


?L0,RL3 




001E 


BE38 


RLDB 


RL0,RH3 


JSHFT LEFT TO MSW ! 


0020 


DEE0 


CALR 


GETCHR 


! GET CHR FROM INTBUF! 


0022 


9E06 


RET 


Z 




0024 


0A08 


CPB 


RL0,#' ' 


!CK FOR SPACE ! 


0026 


2020 








0028 


EEE7 


JR 


NZ , NOTCH 


! IF NOT, CONT ! 


002 A 


D016 


CAL? 


SKPBLX 


! SKIP TO NEXT ARG ! 


002C 


3D83 


RESFLG 


C 




002E 


9E08 


RET 




! SPACE »FTER ARG ! 






REPERR: 






0030 


34 C A 


LDA 


R10,R12(#ERCR) 


0032 


0000- 








0034 


1EA8 


JP 


GF10 




0036 




END GETADR 










GLOBAL 






0036 




GETNXT PROCEDURE 








J 0^ #1^ #1% #1^ ^1% #1^ ^1% 




WU »<# •••» virf *<# V»^ <JU «A* 

#1* 0g% ^1^ 0^ 0^ 0^ ^1% 










5|< 






* GETNXT; 


SKIP TO BEGINING OF NEXT * 








ARGUMENT 


IN COMMAND. * 






❖ 




if 






* REG USE 


: RETURN 


RL0 = CHAR OR CR - 






•ju 




AND Z IF = CR - 










if 












ENTRY 










! SKIP OVER 


CURRENT ARGUMENT TO NEXT SPACE ! 


0036 


DFEB 


CALR 


GETCHR 




0038 


9E06 


RET 


Z 


1 RTN IF CH=CR ! 


003 A 


0A08 


CPB 


RL0,#' ' 


! FIND FIRST SPACE ! 


003C 


2020 








003E 


EEF3 


JR 


NZ .GETNXT 




0040 


E8DF 


JR 


SKPBLK 


! NOW SKI? BLANKS ! 



0042 END GETNXT 



95 



GLOBAL 

?042 GETCHR PROCEDURE 

I * # Jjs # :<e sjt # j!« Jic # 3i« # ;ic # # j:< jjt 5); # ;!s s!; ;jc ^ ;)c >;« sf: # 3}: # sjc 5f: X; # Jit # # 

















GETCHR; 


GETS NEXT CHR FROM INTBUF 


❖ 








AND INCREMENTS INTPTR. 


yu 






« REG USE 


; RETURN RL0 = CHR 


5JC 








AND Z IF CR 


ou 

T* 






3;i3;s3;s:^e3^:{S3;c:^^5^3^3^:^c:;:3;c3Jt::;eJ{^X^5;c:it5;£:^s3^ca{s:^e3:c3^s3^s:^s5^t5:^3:^sJ«3}c9;;^::?^^5{c3;^ f 






ENTRY 






0042 


93F2 


PUSH 


0R15.R2 ! SAVE WORK REG 


I 


0044 


61E2 


LD 


R2,INTPTR(R14) 




0046 


0304 








0048 


2028 


LDE 


RL0,0R2 ! GET CHR ! 




004 A 


69E0 


INC 


I,NTPTR(R14) ,#1 ! INC PTR 


f 


004C 


0304 








004E 


0A08 


CP3 


RL0,#CR !CK FOR CR ! 




0050 


0D0B- 








0052 


97E2 


POP 


R2.GR15 




0054 


9E08 


RET 






0056 




END GETCHR 










GLOBAL 






0056 




CONVERT PROCEDURE 








f S;:)je3ic3;ca9c3ie9;c3ic9};:<c3i;3:c3;e3i>:3}c9};:iest(3ic3ic:;:3;$3ic3ic3ic9^3;s::t9is9ie3ic9ic7^3^3i(:^:^>;c3^)x 






❖ 




3^ 






- CONVERT 


; CONVERTS 8-BIT ASCII CHR 










TO 4-BIT HEX V«LUE. VALID 








•JU 

•T* 


CHR IS 0-9 OR A-F; if NOT 








JL, 

'I* 


CHR, EXIT TO EXEC EROR. 








❖ 










^ REG USE 


; INPUT RL0 = 8-BIT ASCII 










RETURN RL0 = 4-BIT HEX IN 










LSW. 


■T* 






S{« 




■or* 








^ ! 






ENTRY 










! CHECK FOR 


VALID CHAR ! 




0056 


0A08 


CPB 


RL0,#'0' ! FILTER <'0' ASCII ! 


0058 


3030 








005A 


9E07 


RET 


C ! ERROR ! 




005C 


0A08 


CPB 


RL0,#'9'+1 ! CK IF DIGIT ! 




005E 


3 A3 A 








0060 


E708 


JR 


C, NOFIX 




0062 


0A08 


CPB 


RL0,#'A' 1 FILTER <'A' ASCII 1 


0064 


4141 








0066 


9E07 


RET 


C 




0068 


0A08 


CPB 


RL0,#'F'+1 IFILTER >'?' ASCII 1 
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006A 


4747 








006C 


EE06 


JR 


NC .RETSIG 


! ERROR ! 


006S 


0208 


SUBB 


RL0,#7 


1 ALPHA ADJUST ! 


0070 


0707 












NOFIX: 






0072 


0608 


AND3 


RL0,#%0F 


! GET LOW NIBBLE ! 


0074 










0076 


8D83 


RESFLG 


C 




0078 


9E08 


RET 




! RTN HEX VALUE ! 






RETSIG : 






007A 


8D81 


SETELG 


C 




007C 


9E08 


RET 


; 


RTN ROR BAD CHR ! 


007E 




END CONVERT 










GLOBAL 










PEUFNC 


LABEL 




007E 




PRNTBF 


PROCEDURE 










» V V-<» 

'r ^ ^ <T* ?? -Tr *1' ^ T* 


»V Mr *A» 

•r* *r* <»r* ^ *T* 'T* "T* ‘V n* ^ 'tr* 'V 'i'* 

«ji^ 






PRNTBF: 


PRINT CONTE 


'I' 

NTS OF OUTBUF - 






❖ 

5{S 


TO CONS WITH CR AT END. * 






« PBU?NC: 


PRINT BUFFER CONTENTS WITH - 








NO CR. 
























ENTRY 










I STORE CR 


IN 0UT3UF 1 




007E 


61E2 


LD 


R2 ,0UTPTR(R14) 


0080 


0306 








0082 


0C25 


LDB 


0R2,#CR 




0084 


0I)0D 








0086 


69 E0 


INC 


OUTPTR(R14) 


.^1 


0088 


0306 












PBUFNC: 






008A 


76S1 


LDA 


R1,0UTBUF(R14) ! LOAD ADR OF 


008C 


0080 












! OUTPUT LOOP ! 








PENT : 






008E 


2018 


LDB 


RL0.0R1 


! GET CHR ! 


0090 


A910 


INC 


R1 


1 INC INDEX ! 


0092 


DEE9 


CALR 


SNDCHR 


! OUTPUT CHR ! 


0094 


E604 


JR 


Z.OUTLF 


! ?CHR = CR ! 


0096 


4BS1 


CP 


R1 ,0UT?TR^R14) ! CK FOR END 


0098 


0306 








009A 


E7E9 


JR 


C,?RNT 


! LOOP ! 


009C 


E802 


JR 


FI NI 


! FINISHED ! 
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! ADD LF AFTER OUTPUT OF CR ! 
OUTLF; 



009E 


C80A 


LDB 


RL0,#LF ! 


OUTPUT LF ! 


00 A 0 


DFF0 


C ALR 


SNDCHR 








! FILL 


OUTBUF WITH BLANKS AND RESET OUTPTR 






FINI : 






00A2 


76E3 


LDA 


R3.0UTBUF(R14) 




00A4 


0080 








00A6 


6FE3 


LD 


0UTPTR(R14) ,R3 


! RESET PTR ! 


00A8 


0306 








00AA 


2100 


LD 


R0 ,#0UTSIZ/2-l 


! FILL CNT ! 


00AC 


003F 






00AE 


4DE5 


LD 


OUTBUF(R14),«' 




00B0 


0080 








00B2 


2020 








00B4 


76E2 


LDA 


H2,0UTBUF(R14) 




00B6 


0080 








00B8 


A123 


LD 


R3.R2 




00BA 


A 931 


INC 


R3,#2' 




00BC 


BB21 


LDIR 


0R3,0R2,R0 ! 


FILL OUTBUF ! 


00BE 


0030 








00C0 


9E08 


RET 






00C2 




END PRNTBF 








GLOBAL 






00C2 




SNDCHR 


PROCEDURE 





o» 

*,•» •(* 

* SNDCHR: CK MONITOR FLAG WORD FOR * 

« OUTPUT STOP SIGNAL (OSTOP); # 

* IF NOT, SEND CHAR TO CONS. * 



I 



* REG USE: INPUT RL0= CHR - 

* RETURN RL0= CHR AND Z IF * 

’i' CHR = CR. 

sit sit 



##:{:5!::{c5!e#s!s#;^:{t7!e5;!5ie>}:5!;5)t#S}:j!!:)t:;:;{t:!e#^::55!i5!t5!;s)e5!e5{c##j!t5;s#>!c,i; | 

ENTR Y 

I’wAIT FOR OUTPUT OK SIGNAL ! 



00C2 


67E2 


BIT 


MFLAGS (R14) ,#OSTOP ! CK FLAG 


1 


00C4 


031C 










00C6 


EEFD 


JR 


NZ, SNDCHR 










! OUTPUT 


CHAR TO TERMINAL 


! 




00C8 


3A04 


INB 


RH0.PORTBC 


! GET PORT STATUS 


f 


00CA 


FFS3 










00CC 


A600 


BITS 


RH0,#TXR 


! TRANS RDY? ! 




00CE 


E6F9 


JR 


Z, SNDCHR 


! NO, CONTINUE. . . ! 


00D0 


3A86 


OUTB 


PORTED, RL0 


! YES, OUTPUT CHR 


! 


00D2 


FFEl 
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00D4 0A08 
00D6 0D0D 
00D8 9E08 
00DA 



CP3 
R ET 

END SNDCHR 



RL0,#CR 



00D/S 



GLOBAL 

C0NV3 LABEL 
CONVW PROCEDURE 

CONVW: CONVERT INTERNAL WORD, 4- 

* 4-BIT HEX VALUES TO FOUR 

* 8-BIT ASCII REPRESENTATIONS 
OF THE HEX VALUES. 






rnr ^ 



❖ 



CCNVB: CONVERT INTERNAL BYTE HEX 









VALUE TO ASCII CHARACTERS. * 






5JS 










* REG USE; INPUT R5 = 


W0RD/3YTE(S) * 








R3 = 


CKSUw ACCUM * 








RETURN R3 = 


UPDATED ACCUM * 






❖ 




AND ASCII GHR * 










IN OUTBUF * 






>1^ 


%L^ «IU vV 

^1% «f*» ^1% 


'r 

aJU *■** *** ^ f 

^ ^ '1- ^ ^ «,•» ^ ^ y 






ENTRY 
! CONVERT 


WORD ? 




00DA 


A050 


LDB 


RH0,RH5 


! 1ST BYTE ! 


00DC 


DFFF 


CAL? 


NIBBLE 








! CONVERT 


BYTE ENTRY POINT ! 






CONVB: 






00DE 


A0D0 


LDB 


RH0.RL5 








NIBBLE: 






00E0 


BE08 


RLDB 


RL0.RH0 


I FIRST NIBBLE ! 


00E2 


DFFF 


CALF 


CONPUT 




00E4 


BE08 


RLDB 


RL0,RH0 


! NEXT NIBBLE ! 






•CONVERT 

CONPUT: 


NIBBLE TO ASCII 


CHAR AND STORE ! 


00 E6 


0608 


ANDB 


RL0,#%0F 


1 GET NIBBLE ! 


00E8 


0F0F 








00EA 


8083 


ADDB 


RL3.RL0 


! UPDATE CKSUM ! 


00EC 


0A08 


CPB 


RL0,#%0A 


I 0-9? ! 


00EE 


0A0A 








00F0 


E702 


JR 


C, ASCII 


! YES . . . ! 


00F2 


0008 


ADDB 


RL0,#7 


* NO, CONVERT CHR 1 


00F4 


0707 


ASCII : 






00F6 


0008 


ADDB 


RL0,#%30 


! CONVERT TO ASCII ! 


00F8 


3030 
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! STORE IF OUTBUF ! 

n TT<? T7 (O i C T5 1 



00FA 


93F1 


PUSH 


0H15,R1 ! 


SAVE F.l ! 


00FC 

00FE 


61E1 

0306 


LD 


R1 ,OUTPTR(R14) 




0100 


2E18 


LDB 


0R1,RL0 


! STORE CHR 


0102 

0104 


69E0 

0306 


INC 


OUTPTR ^R14) 




-n06 

0108 

010A 


97F1 

9E08 


POP 

RET 

END CONVW 


?1 ,0R15 





01 0A 



GLOBAL 



DISPNC LABEL 
DISP PROCEDURE 

5*< :t: 



« 

❖ 

sj: 

>;« 



❖ 

❖ 

ifft 

❖ 

JU 

-Y* 



s!« 



DISP: CONVERTS INPUT TO FOUR ASCII 
CHAR, STORES IN OUTBUF, AND 
DISPLAYS WITH CR; Gi^TS NEXT 
a ASCII CHARS, STORES IN 
INTBUF, AMD CONVERTS TO HEX 
LONG WORD IN RR2. 

DISPNC: SENDS TO CONSOLE ALL IN 

OUTBUF UP TO OUTPTR, WITHOUT 
CR; GETS NEXT 8-ASCII CHR 

REG USE; INPUT R5 = WORD 

RETURN R2,R3 = 8-HEX 

AND C IF REC 0 
NC,Z IF CR 
NC,NZ IF INPUT 
WITH CR 












So 



5!< 

❖ 






❖ 



ENTRY 



010A 


D019 


CALR 


CONVW ! ADD SPACE ! 


010C 


69E0 


INC 


OUTPTR(R14) ,#1 


010E 


0306 










DISPNC ; 




0110 


D044 


CALR 


PBUFNC ! OUTPUT TO CONS ! 


0112 


34CA 


LDA 


R10,R12(#ASCHSX) 


0114 


0000* 






0116 


1FA0 


CALL 


0R10 ! GET NEW R2 ,R3 INPUT ! 


0118 


9E08 


PET 




011A 




END DISP 
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011.S 



GLOBAL 

DISPLAY PFOCEDUPE 

^ -JU «A« «.!» ^ «A» *it« >-'- ^ «A« V» -Jy> -J)- *X» «A> WU «Ji» «*« «A« «A> «JU «A> 

^ «,-* ,?P n* n* ^ ^ ^ sjp. ^ ^ ^ ^ ^ ^ ^ ^ ..y., ^ ^ ^ ^ ^ 

❖ 'r 

* DISPLAY: DISPLAYS SPECIFIED CONTENTS* 

* OF MEMORY. * 

# ^ 



* REG USE: HR7,RL7 = KBYTES /SPACE * 

* F8 = OUTBUF ADR FOR OUTPUT * 

* ail = <ADDR> * 

* F13 = <C0UNT> * 



s,‘!5;c5;s5!ss;s5;!:is;icj!t5;j4!s!;s’^ 5!s:it:’:j:!5:!3:£;;:s:;5j«4e;;!^s)tj|s5;::{«::«5:e*::sj:t5:!s!!s!t!!5::s:!! J 



ENTRY 



011A 


D073 


CALR 


GETNXT 






011C 


2107 


LD 


R7 ,#%202 






011E 


0202 










0120 


EE01 


JR 


NZ .GOTARG 


! 


EAVE NEXT ARG ! 


0122 


E84C 


JR 


EX ERR 


I 


RETURN TO EXEC ! 






GOTARG: 








0124 


D08D 


CALR 


GETADR 


j 


NEXT ARG IS ADR ! 


0126 


A13B 


LD 


Rll ,R3 


f 


SAVE ADDRESS 1 


0128 


F637 


JR 


Z.SUBMOD 


j 


<ADR'><CR> = SUBMODE! 


012A 


D090 


CALR 


GETADR 


! 


GST <CNT> ? 


012C 


A13D 


LD 


R13.R3 






012E 


F601 


JR 


Z, TSTCNT 


I 


GOT CR AFTER <CNT> ! 


0130 


EE45 


JR 


NZ .EXERR 


i 


NOT THERE ! 






TSTCNT : 








0132 


8DD4 


TEST 


R13 


; 


TEST <CNT> ! 


0134 


E643 


JR 


Z, EXERR 


; 


<CNT>=0, ERROR ! 






! MAIN LOOP 


FOR PRINTING 


DISPLAY LINES ! 






NEWL : 








0136 


2109 


LD 


R9,#16 


f 


BYTES/LINE ! 


0138 


0010 










013A 


A1B5 


LD 


R5,P11 






013C 


P032 


CALR 


CONVW 


T 


CONVERT BYTE I 


013E 


69E0 


INC 


OUTPTR(R14) 






0140 


0306 










0142 


76E8 


LDA 


R8,0UTBUF(R14) 


! SET DISPLAY ! 


0144 


0080 










0146 


0108 


ADD 


R8 ,#53 






0148 


0035 






f 


FORMAT I 


014A 


0C85 


LDB 


0P8,#'*' 






014C 


2A2A 










014E 


A 980 


INC 


R8 







! LOOP FOR DISPLAY B/W/L UNITS I 
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POTONE: 



0150 


20BD 


LDE 


PL5,0R11 


! 


FETCH MEMORY 


! 


0152 


2E8D 


LDB 


0R8,PL5 








0154 


0i^0D 


CPE 


PL5,#' ' 


f 


CK FOR CHAR 


; 


0156 


2020 












0158 


S703 


JR 


C .DONTP 


I 


DOMT PRINT ! 




015A 


0«0D 


CP3 


RL5,#%7E 


1 


CK FOR PRNT 


CHR ! 


015C 


7E7E 












015E 


S702 


JR 


C .RITE 


1 


YES, PRINT ! 








DONTP: 










0160 


0C85 


LDB 


0R8,#'. ' 


I 


REPLACE WITH 


' . ' ! 


0162 


2E2S 


RITE: 










0164 


A980 


INC 


R8,#l 








0166 


0C85 


LDB 


0R8,#'*' 








0168 


2 A2A 












016A 


D047 


CALP 


CONVB 


! 


CONVERT WORD 


! 


016C 


A9B0 


INC 


Rll,#l 


I 


INC MEM PTR 


! 


016E 


AB90 


DEC 


R9 








0170 


FE08 


JR 


NZ .SPACE 


f 


NOT EOL \ 




0172 


A980 


INC 


R8 








0174 


6FE3 


LD 


0UTPTR(R14) 


,R8 ! SET PTR 


TO EO 


0176 


0306 












0178 


D07E 


CALR 


PRNTBF 


I 


PRINT LINE ! 




017A 


»07E 


LDB 


RL7,RH7 


1 


RESET 3/SP CNT ! 


017C 


ABD0 


DEC 


R13 








017E 


EEDB 


JR 


NZ.NEWL 1 


START NEW LINE 


! 


0180 


9E08 


RET 




? 


OR ELSE DONE 


j 







! CHECK FOR 
SPACE: 


POSITION OF 


SPACE ! 




0182 


FFl A 


DBJNZ 


RL7,?UT0NE 


! NO SPACE 


YET ! 


0184 


69E0 


INC 


0UTPTR(R14) 


! PUT 


SPACE ! 


0186 


0306 










0188 


A07F 


LDB 


RL7,RH7 


! RESET B/SP 


CNT ! 


018A 


A3D0 


DEC 


R13 






018C 


EEEl 


JR 


NZ .PUTONE 


! CONTINUE.. 


I 


018E 


A 980 


INC 


R8 






0190 


6FE8 


LD 


0UTPTR(R14) 


,R8 




0192 


0306 










0194 


D08C 


CALR 


PRNTBF 


! FINISHED ! 




0196 


9S08 


RET 









! SUBSTITUTION MODE, SINGLE DISPLAY ! 
SUBMOD: 



0198 


A1B9 


LD 


R9 ,R11 


019A 


A1B5 


LD 


R5 ,R11 


019C 


D062 


CALF. 


CONVW ! CONVERT BYTE ! 


019E 

01A0 


69E0 

0306 


INC 


0UTPTR(R14) 
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AGAIN: 



01A2 


20BD 


LD3 


RL5,0R11 


01 A4 


D064 


CALR 


CONVB ! CONVERT WORD ! 


01A6 


A9B0 


INC 


Rll,#l 


01AS 


FF04 


D3JNZ 


RL7, AGAIN 


01AA 


69E0 


INC 


0UTPTR(R14) ,#1 ! INSERT SPAC: 


01AC 


0306 






01AS 


A07F 


LDB 


RL7,RH7 ! RESET B/SP CNT ! 






! GET SUBSTITUTION OR 'Q' OR CR ! 


01B0 


D051 


CALR 


DISPNC 


01B2 


9E07 


RET 


C 


01B4 


E6F1 


JR 


Z.SUBMOD ! GOT CR 


01B6 


2F93 


LD 


0R9.R3 ! SUBST. WORD ! 


0138 


A07F 


LDB 


SL7.RH7 ! RESET B/SP CNT 1 


01EA 


E8FE 


JR 


SUBMOD 






EX ERR: 




013C 


34CA 


LDA 


R10,R12( #ER0R) 


01BE 


0000’!' 






01C0 


1EA8 


JP 


0P10 


01C2 




END DISPLAY 





01C2 



GLOBAL BIARG LABEL 
GLOBAL TRIARG PROCEDURE 

^ ^ ^ U# ou ^ ou «JU OU ^ ^ a# ^ 

^1** *1^ *1^ 

^ TRIARG: GETS NEXT THREE ARG AFTER - 

^ CMD, INTO IMTBUF; ASCII-TO- ^5^ 

- HEX CONVERSION IS PERFORMED - 

ON ADDRESSES. 



❖ 

s!« 

3«i 

•JU 

nr- 

5i« 

'C 

« 



BIARG: SEEKS NEXT TWO ARG IN THE 

SAME MANNER. 



REG USE: RETURN 



R3 = 2ND ARG (BI) 
RA: = 1ST ARG 
AND NC IF ALL ARG 






R3 = 3RD ARG (TRI ) ’!« 

R4 = 2ND ARG « 

R5 = 1ST ARG 






:4;ss^5^cs;^:^c:^c:;c:5::^s:{^3}c:{t^;^a^::^c:<cs^c:4c5;«3!;35c3;p:^;:^c5:^::^5^c3;^5;^^•^3;^5fc:;:5{e5^c?^c3{^3lc:4::^ f 



ENTRY 

?1C2 D0C7 CAL? 

01C4 D0DD CALR 



GETNXT 

GETADR 



! SKIP REST OF CMD ! 
! GST 1ST ARG ! 



103 



01C6 


S608 


JR 


Z, ERRSTP 


CR=ERROR ! 


01C8 


A135 


LD 


R5.P3 




01CA 


E801 


JR 


GST2ND 








! TWO 2RGUMEMTS ENTRY POINT ! 






BI ARG: 






01CC 


E0CC 


CALR 


GETNXT 








GET2ND: 






01 CE 


D0E2 


CALR 


GETADR 


! GET NEXT ARG 1 


01D0 


E603 


JR 


Z, ERRSTP 


! CR=SRROR I 


01D2 


A 134 


LD 


R4,P3 




01D4 


D0E5 


CALR 


GETADR 


i GET LAST ARG 1 


01D6 


9E0F 


RET 


NC 








ERRS TP; 






01D6 


8D81 


SETFLG 


C 


ISIGNAL ERROR! 


01DA 


9E08 


RET 






01DC 




END TRIARG 










GLOBAL 






01DC 




^^OVE PROCEDURE 








• 






* MOVE: MOVES DATA IN 


MEMORY. - 






^ REG USE 


: RETURN F.5 


= <ADR> - 








R4 


= <NEW ADR> - 






5JS 
















ENTRY 






01DC 


D00E 


CALR 


TRIARG 


! GET THREE ARGS 


01CE 


E70D 


JR 


C,WTF 


! NOT ENOUGH ARG I 


0 1 E0 


A156 


LD 


R6,R5 




01E2 


8346 


SUB 


R6,R4 ! 


FIND MOVE DIRECT ! 


01E4 


E703 


JR 


C , UP ! 


WILL MOVE UP ! 


01E6 


BA51 


LDIRB 


0R4,0R5,R3 


! WILL MOVE DOWN I 


C1E8 


0340 








01 EA 


9E08 


RET 










UP: 






01EC 


8135 


ADD 


R5,E3 




01EE 


AB50 


DEC 


R5 




01F0 


8134 


ADD 


R4,R3 




01F2 


AB40 


DEC 


H4 




01F4 


3A59 


LDDRB 


0R4,0R5,R3 


! MOVE BLOCK ! 


01F6 


0340 








01F8 


9E08 


RET 










WTF: 






01FA 


34CA 


LDA 


R10,R12(#EROR) 
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01FC 

01FE 


0000’!' 

1SA8 


JP 


GP.10 


0200 




END MOVE 




0200 




GLOBAL FILL 


PFOCEDUF.E 



^ 5;; 

FILL: STRCSS SIV3N DATA 'a'ORD IN ALL * 
* SPECIFIED MEMORY LOCATIONS. - 

5js 

5ji ^ sji 5|s 3{c 5{? 5}{ ^ 5js ^ Jjc 5}C5jC ? 



ENTRY 



0200 34CA 


LDA 


R10,R12(#EROR) 


0202 0000* 








0204 D022 


CALF 


TRI ARG 


! FETCH THREE ARGS ! 


0206 1EA7 


JP 


C ,0R10 




0208 A750 


BIT 


R5,#0 


!MUST BE SVEN ADR! 


020A lEAE 


JP 


NZ,0R10 




020c 8354 


SUB 


R4,R5 


(COMPARE START TO! 








(END! 


020E 1EA7 


JP 


C ,OR10 




0210 B341 


SRL 


R4,#l 


!SET COUNT! 


0212 FFFF 








0214 2F53 


LD 


0F.5,R3 


(STORE DATA AT START! 


0216 9E06 


RET 


z 


(ONLY ONE REO ! 


0218 A153 


LD 


P3,?5 




021A A931 


INC 


R3,#2 


(NEXT MEM LOC ! 


021c 3B51 


LDIR 


GR3,0R5,R4 


! FILL ALL ! 


021E 0430 








0220 9E08 


RET 






0222 


END FILL 







END DISPLAY CMD 
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6. BRK CUIT I^ODULE 



Z8000J\SM 
LOG OBJ 



.02 

CODE STMT SOURCE STATEMENT 



1 BRK_0UIT CMD MODULE 
$LISTON $TTY 



>|<% #|« ✓!% >1% #1^ #|« #1^ ^p «p ^p «*p ^p ^p 4p ^p #p 

3^ 5|C 






BREAK; COMMAND TO RESET A BREAK ADR * 
REMOVES AN OLD ONE, AND SETS * 

A NEW ONE. * 

« 



* QUIT: COMMAND TO ENTER THE TRANSPAR.* 

* MODE WHERE ALL RECEIVED CHAR - 

* ARE ECHOED BETWEEN MCZ SYS - 

* AND CONSOLE. Z8000 FUNCTIONS - 

- IN RELAY CAPACITY ONLY. >!' 

’!'■ SYNTAX; BREAK [<ADR>] - 

« quit * 






CONSTANT 



( INCLUDE GLOBAL CONSTANTS ) 



EXTERNAL 

EXTERNAL 

EXTERNAL 

EXTERNAL 

EXTERNAL 

EXTERNAL 

EXTERNAL 

EXTERNAL 

EXTERNAL 

EXTERNAL 



GETNXT 

GETADR 

GMCZAD 

SNDMCZ 

GETBUE 

SNDCHR 

EROR 

SKPBLK 

CONVERT 

GETCHR 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

LABEL 

PROCEDURE 

PROCEDURE 

PROCEDURE 



GLOBAL 

$SECTION BRK QUIT PROC 
$REL 0 
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aLOB.iL 



0000 




ASCHEX PROCEDURE 

f %•,# %i# 

I ^«fe 


^*4» y « y^ y,# y^ y# y^ y.* y^ 

^1^ ^ *• 






* ASCHEX: 


ROUTINE 


TO CONVERT ONE LINE * 








OF ASCII 


INPUT TO HEX VALUE * 






3!^ 

'•j 


(8-ASCII 


CHR TO ONE LWORD) * 






* REG USE 


: RETURN 


'r 

RR2 = 8-ASCII CHR * 










AND C IF RFC 'Q' * 






'r 




NC,Z IF CR * 






❖ 




NC.NZ IF SPACE * 






:js 3|55js j;i5jc5j:5^:5c^3j:s;c^c^^^:;s 5;: :^?y,c5jc ?;s5|c:i:5;;3;c35c;^5;::{:5;s5;i f 






ENTRY 






0000 


C82\ 


LDB 


RL0,#'*' 




0002 


34CA 


IDA 


R10,R12(#SNDCHR) 


0004 


0000* 








0006 


1FA0 


CALL 


0R10 


! OUTPUT PROMPT ! 


0008 


DFE0 


CALR 


GETLNE 


! GET LINE INT3UF ! 


000A 


8D28 


CLR 


R2 




000C 


8D38 


CLP 


R3 


! CLR RETURN REGS ! 


000E 


34CA 


LDA 


R10,R12(#SKPBLK) 


0010 


0000* 








0012 


1FA0 


CALL 


OR 10 




0014 


9E06 


RET 


Z 


! REC CR ! 


0016 


0A0S 


CPE 


RL0,,# '0 ' 




0018 


5151 








001A 

001C 


FF02 

8E81 


JR 

SETFLG 


NZ ,GB3 
C 


! NOT '0' ! 


001E 


9E08 


RET 




! RETURN WITH '0' ! 






GE3; 






0020 


34CA 


LDA 


R10,R12(#CONVERT ) 


0022 


0000* 








0024 


1FA0 


C ALL 


0R10 


! ASCII TO HEX ! 


0026 


E70E 


JR 


C.ENDERR 


! NON -AS Cl I CHR ! 


0028 


BEB8 


RLDB 


RL0,RL3 




002A 


BE38 


RLDB 


RL0.RH3 




002C 


BEA8 


RLDB 


RL0.RL2 




002E 


BE28 


RLDB 


RL0,RH2 


! ROTATE NIBBLE ! 


0030 


34CA 


LDA 


R10,R12(#GSTCHR) 


0032 


0000* 








0034 


1FA0 


CALL 


OR10 


! GET NEXT ASCII CHAR ! 


0036 


E604 


JP, 


Z, NOMORE 


! GOT NOTHING ! 


0038 


0A08 


CP3 


RL0,^*' " 


! END OF INPUT ! 


003A 


2020 








003C 


FEFl 


JR 


NZ ,GB3 


! YES, ALL DONE ! 


003E 


8D83 


RSSFLG 


C 








NOMORS; 
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0040 

0042 


8D43 

9E08 


RESFLG 

RET 


Z 


0044 

0046 

0048 

004A 


34CA 

0000* 

1EA8 


ENDERR : 

LDA 

JP 

END ASCHEX 


R10,R12(#EROR) 

0R10 


004^ 




GLOBAL 

GETLNE PROCEDURE 



❖ 







* GETLNE: 


REC ONE LINE INPUT FROM 










CONS (P0RT2), UP TO 60-CHR 








.u 

nr 


MAX, STORE IN INT3UF PLUS 










CR, AND ECHO BACK TO CONS. 


't* 










❖ 






- REG USE 


: RETURN RL0= 1ST CHR IN BUF* 








AND Z IF CHR = CR 


»<» 

*T* 
















*T* •T* ^ *T» 'f» n*> n' 


;ic ?Jc :}c s;ss;j 3|i 5|;ajc 5|c jjc s); ^ :|c :{< 5}c 


❖ ! 




ENTRY 






004A 


76E2 


LD/ 


F2,INTBUF(R14) ! GET BASE 


INTBUF 


004C 


0000 








004E 


2101 


LD 


R1,#INSIZ ! GET MAX SIZE 


; 


0050 


0080 








0052 


6FE2 


LD 


INTPTR(R14) ,R2 




0054 


0304 








0056 


DEE? 


CALR 


CONSOL ! FILL LINE IN INTBUF! 


0058 


E6E5 


JR 


Z, ENDERR ! LINE TOO LONG 


1 


00 5 A 


34CA 


LDA 


R10,R12(#SKP3LK) 




005C 


0000* 








005E 


1FA0 


CALL 


0R10 




0060 


6BE0 


DEC 


INTPTR(R14) ! RETURN TO 


START 


0062 


0304 








0064 


0A08 


CPB 


RL0,#CR 




0066 


0D0D 








0068 


9E08 


RET 


! GOT 1ST CHR = 


CR ! 


006A 


END GETLNE 
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006A 



GLOBAL 

CONSOL PROCEDURE 

f tV iV ^ V# V# v» y ^ ou yu >v y# y» %v 

^ ^ ^ n** ^c n^ ^ ^ ^c ^ ^ ^ ^ ^ ^ 



s;i 

>ti 

5|i 



CONSOL: STORE CONS INPUT LINE IN 
BUFFER ADDRESS PROVIDED, 
PLACE CR AT END OF LINS, 
AND PROVIDE DELETE CHAR 
AND DELETE LINE EDIT FUNC 







* REG USE 


: INPUT R1 = SIZE OF BUFFER - 








R2 = BUFFER ADR * 








RETURN R1 = # OF RFC CHR * 






3jC 


AND Z IF 3UF LIMIT - 

'r 






s:i5jc:{cX«5r5;5>»C5ji^5;j 


«*« ou V' %*« V# V« V' V* OU «*« t 






ENTRY 




006A 


6FE2 


LD 


BUFADR(R14) ,R2 ! SAVE BOTH BUF 


006C 


0300 






006E 


6FE1 


LD 


BUFSIZ(R14) ,R1 ! AND BUF SIZE ! 


0070 


0302 


HDNG: 




0072 


61E2 


LD 


R2,BUFADR(R14) 


0074 


0300 






0076 


6D18 


CLR 


P.l 






REDLOP: 




0078 


DF.Cl 


CALR 


CONRD ! GET CHAR AND ECHO ! 


307A 


0A08 


CPB 


RL0,#%61 ! CONVERT TO UPPER CASE! 


007C 


6161 






007E 


E704 


JR 


C, UPCASE ! NOT LOWER CASE ! 


0080 


0A08 


CPB 


RL0,#%73 


0082 


7373 






0084 


EF01 


JR 


NC, UPCASE ! YES LOWER CASE ! 


0086 


A285 


RES3 


RL0,#5 ! CONVERT TO UPCASE ! 






UPCASE: 




0088 


2E28 


LDB 


0R2,RL0 






! PERFORM EDIT FUNCTIONS ON INPUT ! 


008A 


0A08 


CPB 


RL0,#3S ICK FOR DEL CHR ! 


008C 


0808 






008S 


EEll 


JR 


NZ,CONTCK ! NO, CONTINUE CK I 


0090 


A320 


DEC 


R2,#l ! YES, BACKSPACE ! 


0092 


AB10 


DEC 


El 


0094 


4BE2 


CP 


R2,BUFADR(R14) I NOT TOO FAR i 


0096 


0300 






0098 


E707 


JR 


C,DO OVR 


009A 


C820 


LDB 


rl0,5' ' 


009C 


34CA 


LDA 


R10,R12(#SNDCHR) 


009E 


00005 » 






00A.0 


1FA0 


CALL 


@P10 ! BLANK OUT BAD CHE I 
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00A2 

00A4 

00A6 



00A8 

00AA 

00AC 

00AS 

00B0 



00B2 

00B4 

00B6 

00B8 

00BA 

00BC 

00BE 

00C0 

00C2 

00C4 

00C6 

00C8 



00CA 

00CC 

00CE 

00D0 

00D2 

00D4 

00D6 

001)8 

00DA 

00DC 



00DE 

00E0 

00E2 

00E4 

00E6 

00E8 

00EA 



C808 


LDB 


RL0,#BS 






1EA0 


CALL 


0R10 






E8E8 


JR 


REDLOP ! 


CONTINUE 


! 




DO ova: 








C82A 


LDB 


P.L0,#'*' 






34CA 


LDA 


R10,R12(#SNDCHR) 




0000# 










1EA0 


CALL 


OR 10 ! 


SEND PROMPT ! 




E8E0 


JR 


HD NG ! 


START AGAIN ! 






CONTCK : 








0A08 


CPB 


RL0,#LINDEL 


! CK FOR LINE 


DEL 


7F7E 










E609 


JR 


Z, DELINE ! 


YES ! 




A920 


INC 


R2,«l 






A910 


INC 


R1 






0A08 


CPB 


RL0,#CR ! 


CK FOR CR ! 




0D0D 










E60E 


J^ 


Z, ADDLE ! 


YES, ADD LE CHR 


4BE1 


CP 


R1 ,3U?SIZ(R14) 


! SIZE CK 


1 


0302 










EED8 


JR 


NZ, REDLOP ! 


OK, GET NEXT 


CHR 


9E06 


RET 


Z ! 


TOO LARGS, ERROR 




DELINE: 








C85E 


LDB 


RL0,#%5E 






34CA 


LDA 


R10,R12(#SNDCHR) ! SND LINE 


DEL 


0000# 










1EA0 


CALL 


0R 10 






DEES 


CALR 


NEWLNE ! 


START NEW LIM 


S ! 


C820 


LDB 


RL0,#' ' 






34CA 


LDA 


R10,R12(#SNDCHR) 




0000# 










1EA0 


CALL 


0R10 ! 


SND CHR ! 




E8CA 


JR 


HDNG ! 


START AGAIN 1 






ADDLE: 








C80A 


LDB 


RL0,#LF 






34CA 


LDA 


R10,R12(#SNDCHR) 




0000# 










1EA0 


CALL 


0R10 ! 


SEND LF CHR ! 




8D43 


RESELG 


Z 






9E08 


RET 









END CONSOL 
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GLOBAL 




00EA 




NEVLNE PROC 


EBURE 






f 5|C 5(C 3^ Sp 5|i Jj€ 3|« SjC 

a# 


» Vr %V 

» > 1 ^ ^p «rp ^p «p ^p ^p ^p yp yp yp yp #p y|% ^p ^p y|% #p yp «p yp #p yp «p 






'r* 

* NEWLNE: 

%f* 


SENDS CR AND LF TO CONSOLS * 

..u 












ENTRY 




00EA 


34CA 


LDA 


Rie,R12(#SNDCHR) 


00EC 


0000* 






00EE 


C80D 


LDB 


RL0,#CR 


P0F0 


1FA0 


CALL 


OR 10 


00F2 


C80A 


LDB 


RL0,#LF 


00F4 


1FA0 


CALL 


OR10 ! ADR SNDCHR IN R10 ! 


00F6 


9F08 


RET 




00F8 




END NEWLNE 








GLOBAL 




00F3 




CONRD PROCEDURE 






f «J# •JU %V WU %V 

I #1% ^1% ^1^ #1% ^|4 ^ip #1% ^p «p ^p #p 41 ^% #p ^p #p ^p ^p ^p #p ^p #p «p 4p >1% 



* CONRD: GETS CHAR FROM CCNSOLE INPUT 

=4= BUFFER (INTBUF) AND ECHOS - 

* BACK TO CONSOLE. LOOPS UNTIL - 

’i' RECEIVE CHARACTER. '■' 



REG USE: RETURN RL0= CHR 

AND Z IF CHR=CR 



.(I* tJU .X" »»» *|V «JU »•.» I 

^ 'I' A' *r* •'i*‘ •’»'• ^ 'r "r* *r* *r» »r* *r* "c 'i'* n» ^r* | 







ENTRY 




00F8 


61E0 


TC :LD 


R0,GETOUT(R14) 


00FA 


030E 






00FC 


4BE0 


CP 


R0 ,NXTPTR (R14) ! COMPARE GET AND 


00FE 


030C 




! PUT PTRS ! 


0100 


E6FB 


JR 


Z.TC ! REC NOTHING ! 


0102 


93F2 


PUSH 


0R15,R2 


0104 


34CA 


LDA 


R10,R12(#GETBUF) 


0106 


0000* 






0108 


1FA0 


CALL 


0R10 ! GET RNGBUF ADR ! 


010A 


6FE0 


LD 


GET0UT(R14) ,R0 


010 c 


030E 






010E 


2028 


LDB 


F.L0,0R2 ! STO CHR FOR RTN ! 


0110 


97F2 


POP 


R2,0R15 ' 






! CHECK 


FOR NON-DISPLAY FROM LOAD FILE ! 


0112 


0B09 


CP 


R9,#%AAAA 


0114 


AAAA 






0116 


E603 


JR 


Z,NO DISPLAY 


0118 


34CA 


LDA 


R10,R12(#SNDCHP) 
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011A 

011C 



011E 

0120 



0120 



0120 

0122 

0124 

0126 

0128 

012A 

012C 

012E 

0130 

0132 

0134 

0136 

0138 

013A 

013C 

013E 



0140 

0142 

0144 

0146 

0148 



01 4A 
014C 
014E 
0150 



0000’i' 

1EA0 CALL 0R10 

NO_DISPLAY: 
9E0S RET 

END CCNRD 



GLOBAL 

BREAK PROCEDURE 

I s*' ^ s** **‘* s*? s*' V' ^ %*.* 

^ ^ ^ ^ ,,, ,,, 



%V WK# 
^ 



* BREAK; CLEARS PPEVIOUSLY SET BREAK * 

* POINT BY REPLACING UNIMP. - 

* INSTRUCTION (0E00) WITH ORG 

* INSTRUCTION EOR THE ADR, AND * 

SETS A NEW BREAK POINT IE * 

* SPECIFIED (<ADR>). - 



61E2 
0316 
61 El 
0314 
2F21 
4DE8 
0316 
4DE8 
0314 
4DE5 
030A 
0001 
34CA 
0000 =<‘ 
1FA0 
9E06 



?;< sj: J|S 3{c 3{? :{c s;? :|c ^ s!i Sj{ 5|C 5{s ^ :;c 5jc 5;< s;s 5^S >;< :;t >[t 5',S 5|C ^ :{c j;? 5*: J 

ENTRY 

! CLEAR PREVIOUS BREAK POINT ! 

LD R2,BRKADR(R14) 

LD HI ,BRKSTR(R14) 

LD 0R2,R1 ! RESTORE INST ! 

CLR BRKADR(R14) 

CLR 3RKSTR(R14) 

LD BRKCNT(R14) ,#1 I RESET CNT TO 



LDA R10,R12(#GETNXT) 

CALL OR10 ! GET NEXT ARGUMENT ! 

RET Z I NO NEW ADDRESS ! 



! 



! GET NEW BREAK ADDRESS ! 



34CA 

0000* 


LDA 


R10,R12(#GETADR) 


1FA0 


CALL 


OR10 


! GET BRK ADR ! 


A132 


LD 


R2,R3 


! SAVE 3PK ADR I 


E607 


JR 


Z,GB4 


! NO BRKCNT. . . ! 



! GET NEW BREAK COUNT ! 



34CA 

0000* 


LDA 


R10,R12(#GETADR) 




1FA0 


CALL 


0R10 


! GET 


COUNT ! 


8D34 


TEST 


R3 


! TEST 


FOE ZERO ! 
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0152 



0154 

0156 



0158 

015A 

015C 

015E 

0160 

0162 

0164 

0166 

0168 



016 ^ 

016C 

016S 

0170 

0172 

0174 

0176 

0176 

017A 

017C 

017E 

0180 

0182 

0184 

0186 



0186 



0186 

0188 

018A 

018C 



E602 


JR 

NCZ: 


Z,GB4 ! BRKC'IT = 1 ! 


6FE3 

030A 


LD 


BRKCNT(F14) ,E3 » SET BRKCNT ! 




! SET UN IMPLEMENTED INSTRUCTION IN BREAK ADR ! 
GB4: 


A320 


RES 


R2,#0 ! MAKE EVEN ADR ! 


6FS2 

0316 


LD 


BRKADR(R14) ,R2 


2121 


LD 


R1 ,0R2 


6FE1 

0314 


LD 


BRKSTR(R14) ,R1 ! SAVE INST ! 


61 El 
0308 


LD 


R1 ,UNIMP(R14) 


2F21 


LD 


0R2,R1 ! PLACE '0E00' ! 




! CHECK 


FOR WRITE TO EXISTING MEMORY ! 


2121 


LD 


HI ,0R2 


4BE1 

0308 


CP 


R1 ,UNIMP(R14) 


9E06 


RET 


7 

Li 


4DE5 

030A 

0001 


LD 


EPKCNT(R14) ,^#1 ! MEMORY NOT THERE 


4DE8 

0316 


CLR 


BRKADR(R14) 


4DE8 

0314 


CLR 


BRKSTR(R14) 


34CA 

0000’!' 


LDA 


R10,R12(#EROR) 



1EA8 



4DE8 

0310 

4EE8 

0312 



JP 

END BREAK 



0E10 



! GOT WRONG 3RK PNT I 



GLOBAL 

QUIT PROCEDURE 

^ ^ ^ *1^ ^ ^ ^ ^ ^ 

:!! >:« 

* QUIT: TRANSMITS ALL CHF AND CR FROM - 

* CONS TO MCZ; THEN RELAYS ALL 

TO CONS FROM MCZJ AND ETC. - 

s? -i! 

JU %.># %V ^ f 

#1% ^1% «!«• #1^ #1% >1^ >1% >1^ ^1% #1% 0^ ^1% 0f^ f 

ENTRY 

CLR MCZPUT(R14) 



CLR 



MCZGET(R14) 
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018E 


65E0 


SET 


MFLAGS (R14) ,#TRPMDE ! RESET BUF PTR: 


0190 


031C 












! AND ENTER TRANSPARENT MODE ! 






! CONSOLE 


RECEIVE ROUTINE ! 






PORTB: 




0192 


61E0 


LD 


R0,GETOUT(R14) 


0194 


030E 






0196 


4BE0 


CP 


R0,NXTPTR(R14) ! CK FOR CONS INPUT 


0196 


030C 






019A 


E60A 


JR 


Z, PORTA ! NO, CK MCZ ! 






! PROCESS 


CONSOLE INPUT ! 


019C 


34CA 


LDA 


R10,R12(#GETBUF) 


019E 


0000* 






01»0 


1FA0 


CALL 


OR 10 ! GET RNGBUF ADR ! 


01A2 


6FE0 


LD 


GET0UT(R14) ,R0 ! SET BEGIN PTR ! 


01A4 


030E 






01«6 


2028 


LDB 


RL0,0R2 


01A8 


34CA 


LDA 


R10,R12(#SNDMCZ) 


01AA 


0000* 






01 AC 


1FA0 


CALL 


0R10 ! ECHO CHR TO MCZ ! 


01AE 


EEFl 


JR 


NZ, PORTB ! CONTINUE UNTIL CR 1 






1 MC2 RECEIVE ROUTINE ! 






PORTA: 




01B0 


61E0 


LD 


R0 ,MCZGET (R14) 


01B2 


0312 






01B4 


4BE0 


CP 


R0 ,MCZPUT(R14) ! CK FCR MCZ INPUT 


01B6 


0310 






01B8 


E6SC 


JR 


Z, PORTB 1 NO, CK CONSOLS...! 


013A 


34CA 


LDA 


R10,R12(#GMCZAD) 


01BC 


0000* 






01BE 


1FA0 


CALL 


OR10 ! GST MCZBUF ADR ! 


01C0 


6FE0 


LD 


MCZGET(R14) ,R0 


01C2 


0312 






01C4 


2028 


LDB 


RL0,OR2 ! GET CHAR FROM MCZBUF 1 


01C6 


34CA 


LDA 


R10,R12(#SNDCHR) 


01C8 


0000# 






01CA 


1FA0 


C A LL 


0R10 ! OUTPUT CHR TO CONSOLE ! 


01CC 


F8F1 


JR 


PORTA ! CONTINUE TIL EMPTY ! 


01CE 




END QUIT 








END BRK_OUIT_CMD 
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7 



DF3UG MODULE 



Z8000ASM 
LOG OBJ 



.02 

CODS STMT SOURCE STATEMENT 



1 DEBUG_CMD MODULE 
$LISTCN $TTY 



I ^ :{S5}c sjc 3jc j;s 5 ;: sjc y,c s;i sje 5|c jJsj'.c V sjt 



❖ 






2'C 




JUMP CMD‘ 


CHANGES USSR PC VALUE AMD 


:Jc 


❖ 




BEGINS PROGRAM EXECUTION 








AT THAT POINT <PC> . 


'I' 








:Js 




GO CMD: 


BEGINS PROGRAM EXECUTION 




❖ 




AT THE CURRENT USER PC. 






NEXT CMD: 


STEPS THROUGH PROGRAM 








EXECUTION ONE INST. AT A 
TIME OR IN MULTIPLES <N>. 


T* 










❖ 


SYNTAX: 


JUMP <PC> 


O' 






GO 








NEXT [<N>1 


»r 










«tU «*« •f'* *** »A» «*« ■>-*' «V «JU«V «JU «*« ^1* ^ 

>i. «,» .y. <»r *r* V *v n'*^*'* ‘V*'r* *'^■•5;5 'i"* jj, ^ 3 




CONSTANT 








RXR 


= 2 






TXR 


= 0 






PAR 


= 7 






P OR TAD 


= %FFD9 






P0RT3D 


= !^FFS1 






POETAC 


= %FFDB 






PORTBC 


= %FFE3 






IDPCRT : 


:= %FFCB 






ICPORT ; 


:= %FFC9 






TCMD 


%FFD2 






TDTA := 


%FFD0 






BUS LOCK ; 


:=%FFF9 






BUS UNLOCK :=%EEE8 






VINTR 


= %(2)0001000000000000 






7IBIT 


= 12 






ESCAPE 


= %13 






3S 


= %08 
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0000 

0080 

0100 

0200 

0300 

0302 

0304 

0306 

0308 

030A 

030C 

03 0E 

0310 

0312 

0314 

0316 

0318 

031 A 

031C 

031S 



LINTEL 


= 


%7F 




CR 


= 


%0D 




LE 




%0A 




TXOECH 




%13 




TXONCH 


= 


%11 




INSIZ 


= 


128 ! 


INT3UF SIZE 


OUTSIZ 


= 


128 ! 


OUTBUF SIZE 


RESIZ 


= 


256 ! 


RING BUFFER 


! BIT POSITIONS 


IN MONITOR 


FLAG WORD ! 


TEPMDE 


= 


0 




ISTOP 




1 




OSTOP 




2 




SNDMDE 


= 


3 




LDMDE 


= 


4 




ESC 


= 


5 




TXMSK 


— 


%6 




INTERNAL 









$SECTION DATA_DEC 
$ABS 0 



INTBUF 


ARRAY 


[128 


BYTE] 


OUTBUF 


ARRAY 


[128 


BYTE] 


PNGBUF 


ARRAY 


[256 


BYTE] 


MCZBUF 


ARRAY 


[256 


BYTE] 


BUFADR 


WORD 






BUFSIZ 


WORD 






INTPTR 


WORD 






OUTPTR 


WORD 






UNIMP 


WORD 






BRKCNT 


WORD 






NXTPTR 


WORD 






GETOUT 


WORD 






MCZPUT 


WORD 






MCZGET 


WORD 






BRKSTR 


WORD 






BRKADR 


WORD 






TMPSP 


WORD 






TMPFCW 


WORD 






MFLAGS 


WORD 







I USER REGISTER STORAGE ! 
R0 WORD 
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0320 

0322 

0324 

0326 

0328 

032A 

032C 

032E 

0330 

0332 

0334 

0336 

0338 

033.A 

033C 

033E 

0340 

0342 

0344 

0000 



R1 


WORD 




R2 


WORD 




R3 


WORD 




R4 


WORD 




R5 


WORD 




R6 


WORD 




R7 


WORD 




H8 


WORD 




H9 


WORD 




R10 


WORD 




Rll 


WORD 




R12 


WORD 




R13 


WORD 




R14" 


WORD 




R15" 


WORD 




RPC 


WORD 




RPC_ 


WORD 




RETRY 


WORD 




ADR_ST 


R WORD 




INTERNAL 


^SECTION 


PS A _D AT A 




$ABS 0 






PSA 


RECORD [ 






DATA AREA 


WORD 




CODE AREA 


WORD 




UNIMP INST 


LONG 




PRIV INST 


LONG 




SYSTEM CALL 


LONG 




SEC TRAP 


LONG 




NMI I NT 


LONG 




NVriNT 


LONG 




7EC FCW 


WORD 




YEC"PC 


ARRAY [200 



1 



EXTERNAL 

GSTNXT 


PROCEDURE 


GETADR 


PROCEDURE 


RGHDRl 


PROCEDURE 


RGHDR2 


PROCEDURE 


PRREGl 


PROCEDURE 


PRREG2 


PROCEDURE 


EROR 


LABEL 


EXEC 


PROCEDURE 


$SECTION : 


DEBUG_PROC 


$REL 0 





WORD] 
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?00e 



0000 

0002 

0004 
0006 
0008 
000A 
000C 

0005 
0010 
0012 
0014 
0016 
0018 

001A 



001A 



001A 

001C 

001S 

0020 

0022 

0024 

0026 

0028 

002A 

002C 

002E 

0030 



GLOBAL 

DEBUG ENTRY PROCEDURE 

j >;c ^ :js 5 ;? 



I# mJU ^ WU *A0 

^1% #»p ••p #1% 











- DEBUG 


ENTRY: RESTORES 


DMONITOR R12 






AND R14 (CODE AND DATA)"- 






REGISTERS 


FOP. INTERRUPT* 




«w 

»r 


ENTRIES . 


#1^ 






. «JU ^ Up •^o Up Up U« U.. Up Up Up Up'*'p Up UU Up U« Up 'Up ««p Up Up ^ .J* ^ ^ f 

• p|» >p pjtp|» p*» ^ P|» pj'* p** P|^ ^ ^ - 1 '* '1'* ^ *Tf* *>■* ^ ^ 'I* ^ 1 




ENTRY 






93F1 


PUSH 


0R15.R1 




93EE 


PUSH 


0R15 ,R14 




7D15 


LDCTL 


PI .PSAPOFF 


! GET PSA BASE ! 


211E 


LD 


R14,0R1 


! RESTORE DATA BASE ! 


6FEC 


LD 


R12_(R14) ,R12 


! SAVE USER fil2 ! 


0336 








611C 


LD 


P12, CODE_AREA( 


Rl) ! CODE PASS ! 


0002 








97E1 


POP 


R1 ,0R15 




6FE1 


LD 


R14_(R14) ,R1 




033A 








97F1 


POP 


R1 ,0R15 




9E0S 


RET 







END DEBUG ENTRY 



GLOBAL 

SAVREG PROCEDURE 

j >}6nf3fic5;5:{C55c3}C3{ia!«:^5;e:^:{« 5}c5;c5;t:i:5;<:;c>!<XC5{«j;5:;s:{c3jS5;c5;s:i{s:;c5t::It55s3;s:Ce5^?;cj;s5;c5;5 

* SAVREG: SAVES USER PROGRAM STATUS * 

AND REGS 1-14 CONTENTS. - 

^ -rp 



Vf ^ ^ %V ^ ^ %*« >1^ f 

#l^>p «»p ^1% ^1% jp >1^ «»p^p #p ^p «»p #p rp #p ^p ^p #p •■p ^1% #p yp ^p #p p ^p #p #p #p rp ^p I 





ENTRY 


6FEF 

0318 


LD 


31F0 

0004 


LD 


6FE0 

0340 


LD 


31F0 

0006 


LD 


6FE0 


LD 


033E 


! SAVE Rl 


76EF 

0320 


LDA 



TMPSP(R14) ,R15 

R0,R15{#4) 

RFC_(R14) ,R0 

R0,R15(#6) 

RPC_(R14) ,R0 

- R14 ! 

R15,R1_(R14) 



! RTN ADP. [ 
SAVE: ! 

! USER ECW ! 

! USER PC ! 
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0032 
0034 
0036 
0038 
003 « 
003C 
003E 
0040 



0040 



0040 

0042 

0044 

0046 

0048 

004.4 

004C 

004E 

0050 

0052 

0054 

0056 

0058 

005A 

005C 

005E 

0060 

0062 

0064 

0066 

0068 

006A 



1CF9 

010A 


LD.^ 


GR15,R1,#11 I STORE REGS ! 


61 S? 
0318 


LD 


F15, TMPSP(R14) I RESTOPE SP I 


6EED 


LE 


R13_(R14) ,R13 


0336 






9E08 


RET 

END SAVREG 
GLOBAL 






RESTOR PROCEDURE 










* RESTOR; 


RESTORES USER PROGRAM STATUS- 




# 


AND REGS 0-11,13 CONTENTS. - 

#1% 




%iU 


OU %iU • 

^ ^ #*|% ^ #1% #*,* I 




^ ^ #1% ^ 
ENTRY 


6FEE 

0318 


LD 


TMPSP(R14) ,R15 ! SAVE STK PTR 


61EF 

033C 


LD 


R15,R15_(R14) ! SET USER SP 


61E1 

0340 


LD 


R1,RFC_(R14) ! RESTORE: 


33F1 

0002 


LD 


R15(#2),R1 ! USER FCW ! 


61E1 

033E 


LD 


R1 ,RPC_(R14) 


33F1 

0004 


LD 


R15(#4) ,R1 ! USSR PC I 




IRES TORE F.0 


- R15 ! 


34EF 

031E 


LDA 


R15.R14 '#R0_) 


ICFl 

0003 


LDM 


R0,0H15,#12 ! RESTORE PEGS » 


61EI) 

0338 


LD 


R13, R13_( R14) 


61 SF 
0318 


LD 


R15,TMPSP(R14) I RESTORE SP 1 


9E08 


EET 

END RESTOR 
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GLOBAL 
GO LABEL 

006A JUMP PROCEDURE 

f 5^ ^ ^ 5|5 »|C ^ 3^ 5,C '»• ^ ^ ^ ^ 3^ 5j? SjS 5p ^ SjJ 5{? 3^ 3|C 9^ JjC 3j» 5{C 5}C 



* JUMP: TRANSFERS PROGRAM EXECUTION * 

TO LOCATION SPECIFIED IN CMD. * 

* -.C 

’•' GO: BEGIN EXECUTION AT CURRENT - 

* USER PC VALUE. - 



wp 5|» Sjc 3^ 5|C 5|5 Sji 3|S jjc 3{C 5*,^ Sjc 3jS 5([% 5jC ?JC 3|« 5ji 3|C SjS 5j* 5js 5|^ Sj» 5>C 3{i 3jc 3jC S|% jjs sJC »jc jjt 3js «{C 5jC J 



ENTRY 



006A 


34CA 


LDA 


R10,R12(#GETNXT) 




006C 


0000* 










006E 


1FA0 


CALL 


0R10 


! GET 


NEXT ARG ! 


0070 


E616 


JR 


Z, SETERR 


! NO ARGS ! 


0072 


34CA 


LDA 


R10,R12(#GETADR) 




0074 


0000- 










0076 


1FA0 


CALL 


GR10 


! RTN 


JMP ADR IN R3 ! 


0079 


A330 


RES 


R3,#0 


! SET 


TO EVEN ADR ! 


007A 


6FE3 


LD 


R?C_(R14) ,R3 




! SET NEW PC VALUE 


007C 


033 E 


IGLOBAL GO 


CMD ! 






007E 


61E3 


GO:LD 


R3,RPC_(R14) 






0080 


033E 










0082 


4BE3 


CP 


R3.BRKADR fR14) 


I 


PC = ERKADR? 1 


0084 


0316 










0086 


E665 


JR 


Z.BRK’^OU 


I YES 


TAKE I NT. I 


0088 


D025 


CALR 


RESTOR 


! NO, 


RESTORE REGS 1 


008.4 


61EF 


LD 


R15,R15_(R14) 


; 


RESTORE SP ! 


008C 


033C 










008E 


61EC 


ld 


R12,R12_(R14 ) 






0090 


0336 










0092 


93F1 


PUSH 


0R15,R1 






0094 


61E1 


ld 


R1 ,R14_(R14) 






0096 


033A 










0098 


AllE 


LD 


R14,R1 






009A 


97F1 


POP 


R1 ,0R15 






009C 


7B00 


I RET 


j 


BEGIN 


EXEC BY IRET ! 






SETERR: 








009E 


34CA 


LDA 


R10,R12(#EROR) 






00 A 0 


0000’!' 










00 A2 


1EA8 


JP 


GR10 


! RETU 


RN TO EXEC I 


00A4 




END JUMP 
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00A4 



00A4 
00A6 
00A8 
00 AA 
00AC 
00AE 
00B0 
00E2 
0034 
00B6 

00B8 

00BA 

00BC 

00BE 

00C0 

00C2 

00C4 

00C6 



00C8 

00CA 

00CC 

00CE 

00D0 



global 

BRKIHD PROCEDURE 

%>« *JU «•# ««« <»•« «># «U 

>1% ^1^ if ^1% #1% #1^ ^1% #1^ 






«W 



BEKIED: EPEAK INTEI-RUPT HANDLER - 

* WHICH EXECUTES SINGLE USER ’- 

* INST, PUTS BACK BREAK INST 

- (UNIMPLEMENTED INST.). AND * 



* RESTORES US 

•iff *ff •Xt V' ’**' *** •** 

*y* ^ *ir ^ ^ ^ »'c‘T» 

ENTRY 



93F2 


PUSH 


0R15,R2 


93F1 


PUSH 


GR15,R1 


93FE 


PUSH 


@R15,R14 


7D15 


LDCTL 


■pi ,PSAPOFF 


211E 


LD 


R14,0R1 


61S2 

0316 


LD 


R2,BRKADR(R 


61E1 

0308 


LD 


R1 ,UNIMP(R1 


2F21 


LD 


0R2,R1 


67EC 
031 A 


BIT 


TMPFCW(R14) 


EE05 


JR 


NZ, ALTHRU 


31F2 

0008 


LD 


R2 ,R15(#8 ) 


A32C 


RES 


R2,#VIBIT 


33F2 

0008 


LD 


R15(#8) ,R2 



R FCW . - 

* 

«JU *JU «’« ■ 

*T' n' *!• n"* “T* “T* ^ ^ 'I* I 



! SAVE SYS REG 1-2 J 



! DATA_AREA ADR ! 
4) 



! STORE UNIMP(R14) INST ! 
! FOP. BREAK SIGNAL ! 
#VIEIT !CK VI EN ! 

! YES, FINISHED ! 

! NO, ! 

! . .SO EN VI ! 

! and put back ! 



ALTHRU: 

! RESTORE USSR R12 AND R14 ! 



97FE 


POP 


R14,(?R15 




97F1 


POP 


R1 ,6R15 




97 F2 


POP 


R2,0R15 


! RESTORE REGS ! 


7B00 


I RET 







END BRKIHD 
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00D0 



GLOBAL 

SSINT 



PROCEDURE 



»A^ %•» %' 



« <JU 

r* *1'^ •■i'* ^r» *Y* -r* 







* SSINT: 

❖ 

❖ 

«Ji» s*« "J-* »JU *•. 

^ ••r -r* *Y* 't' 


SINGLE STEP INT HANDLER FOR * 
USE WITH NEXT CMD. ALLOWS * 

SINGLE INST EXECUTION. * 

'r 

, ^ .u ■Og ^ -jf otg -Xf a.* 0^ • 

• -"(f* ^ ^ -r* ^ ^ V 5T- ..,5 ^ 3^, ,,, I 






ENTRY 




00D0 


D069 


CALR 


DEBUG ENTRY 


00D2 


6FEF 


LD 


R15_(R14) ,R15 


00D4 


033C 






00D6 


6FE0 


LD 


B0_(R14),?0 


00D8 


031E 






00DA 


D061 


CALR 


SAVRSG ! SAVE ALL REGS ! 


00DC 


61 E2 


LD 


R2,BRKADR(R14) 


00DE 


0316 






00E0 


61F1 


LD 


R1,UNIMP(R14) 


00E2 


0308 






00E4 


2F21 


LD 


0R2.R1 ! RESTORE UNIMP(R14) INST 


00E6 


67EC 


BIT 


TMPFCW(R14) ,#VI3IT 


00E6 


031A 






00EA 


EE02 


JR 


NZ.DWN I VI SN ! 


00EC 


63EC 


RES 


RFC_(R14) ,#VIBIT 


00EE 


0340 


DWN: 




00E0 


34CA 


LDA 


R10,R12(#PRREG1) 


00F2 


00005JS 






00E4 


1FA0 


CALL 


GR10 ! OUTPUT REG CONTENT! 


00F6 


34CA 


LDA 


R10,R12(tfPRREG2) 


00E6 


0000* 






00FA 


1FA0 


CALL 


0R10 


00FC 


6BE0 


DEC 


3RKCNT(R14) ,#1 


00FE 


030A 






0100 


EEIB 


JR 


NZ ,SINST I CONTINUE SS ! 


0102 


4D05 


LD 


BRKCNT,#! ! RESET NEXT CNT ! 


0104 


030A 






0106 


0001 






0108 


4DE8 


CLR 


MFLAGS (R14) 


010A 


031C 






010C 


7C05 


El 


VI 


010E 


34CA 


LDA 


R10,R12(#EXEC) 


0110 


0000* 






0112 


1EA8 


JP 


0R10 


0114 




END SSINT 





122 



GLOBAL 







BRKROU 


LABEL 






SINST 


LABEL 


0114 




NEXT 


PROCEDURE 








> ^ V'' »'<» 

* r|» ^1* •>!' #1^ *1^ •’('* •y* 

sO 






* NEXT: 


SINGLE OR MULTIPLE STEPPING * 








THRU USER PROGRAM WITH REG * 






'1* 


CONTENTS DISPLAYED AFTER EACH * 






T* 


INSTRUCTION EXECUTION. * 






^1^ ^ 


^1# ^1# OL# *JU V# 1 

. ^1% ^ ^ 'C ^ ^ O' <1^ ^ •'P I 






ENTRY 




0114 


34CA 


LDA 


R10,R12(#GETNXT) 


0116 


0000* 






0113 


1FA0 


CALL 


0R10 ! SKI? REST CMD ! 


011A 


E605 


JR 


Z.KA ! NO NEXT COUNT ! 


011C 


34CA 


LDA 


R10,R12(#GETADR) 


011E 


0000* 






0120 


1FA0 


CALL 


0R10 ! GET COUNT ! 


0122 


8D34 


TEST 


R3 


0124 


SE01 


JR 


NZ.KB I COUNT<0 ! 


0126 


BD31 


KAtLDK 


R3,#l ! SET CNT=1 ! 


0126 


6FE3 


KB;LD 


3RKCNT(R14) ,R3 ! SET 3RKCNT ! 


012A 


030A 






012C 


34CA 


LDA 


R10,R12(#RGHDR1 ) 


012E 


0000* 






0130 


1FA0 


CALL 


0R10 ! DISPLAY HDR ! 


0132 


34CA 


LDA 


R10,?.12(#RGHDR2) 


0134 


0000* 






0136 


1FA0 


CALL 


0R10 






! SINGLE 


INSTRUCTION EXECUTION ROUTINE ! 






SINST: 




0138 


3402 


LDAP 


F2.SSINT ! SETUP INT HDLR ! 


013A 


FF94 






013C 


61S3 


LD 


R3 ,BRKADR(R14) 


013E 


0316 






0140 


4BE3 


CP 


E3,RPC_(R14) ! PC=BFKADR(R14)? ! 


0142 


033E 






0144 


EE0D 


JR 


NZ.KC ! NO CONTINUE ! 


0146 


61 S3 


LD 


P3,BRKADR(?14) 


0148 


0316 






014 A 


61E1 


LD 


R1,BRKSTR(R14) 


014C 


0314 






014E 


2F31 


LD 


0R3,R1 I RESTORE ORIGINAL INST ! 


0150 


E807 


JR 


KC ! CONTINUE ! 



I BREAK INTERRUPT HANDLER ROUTINE ENTRY ! 
BRKROU: 



ei52 3402 LDAP. R2.BRKIHD ! SET INT HDLR ! 
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0154 


FE4E 






0156 


61E3 


LD 


R3,3RKADR(R14) 


0158 


0316 






315A 


6101 


LD 


Rl.BRKSTR ! RESTORE BRK INST 1 


015C 


0314 






015E 


2F31 


LD 


0R3.R1 






! EXECUTE 


SINGLE USER INST AND RETURN BY IRST ! 






KC : 




0160 


7C01 


DI 


VI 


0162 


7D15 


LDCTL 


R1 .PSAPOFF 


0164 


7613 


LDA 


R3,VEC_PC(R1 ) 


0166 


001E 






0168 


3332 


LD 


R3(#12),R2 ! SET INT HDLIt IN PSA 


016A 


000C 






016C 


D097 


CAL?. 


RESTOR ! RESTORE REGS.PC.FCW ! 


016E 


61SF 


LD 


R15,R15^(R14) ! RESTORE SP ! 


0170 


033C 






0172 


31F1 


LD 


R1 ,R15(#2) 


0174 


0002 






0176 


6FE1 


LD 


TMPFCW(R14) ,R1 


0178 


031 A 






017A 


0501 


OB 


R1 ,#VINTR ! ENABLE VI ! 


017C 


1000 






017E 


33F1 


LD 


R15(#2) ,R1 ! PUT BACK ! 


0180 


0002 










I RESTORE 


USER R12 AND R14 ! 


0182 


61E1 


LD 


R1,F1_(R14) 


0184 


0320 






0186 


93F1 


PUSH 


0R15.R1 


0188 


61EC 


LD 


R12,R12_(R14) 


018A 


0336 






018C 


61E1 


LD 


R1 ,R14_(R14) 


018E 


033 A 






0190 


Alls 


LD 


R14,R1 


0192 


97F1 


POP 


R1 ,0R15 


0194 


3B16 


OUT 


%FFC0,R1 ! ARM SINGLE STEP ! 


0196 


FFC0 






0198 


AlAA 


LD 


R10.R10 


019A 


7B00 


I RET 


! RTN AND EXECUTE ONE INST ! 


019C 




END NEXT 








END DEBUG 


CMD 
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a. SSND MODULE 



Z8000ASM 
LOG OBJ 



.02 

CODE STMT SOURCE STATEMENT 



1 SEND_CMD MODULE 
$LISTON $TTY 



I 



^ ^r* 



%V V^ 

^ 



«l4« %*^i 

0^ ?,*. 



• «!>• %l«» <«t,r 

. ^1% ^«» #1^ ^1% ^1* <r|4» «|« 



- SEND CMD: SENDS SPECIFIC BLOCK OF - 

* MEM <EGN ADRXEND ADR> TO - 

* MCZ TO STORE AS <FNAME> - 

W/RELOAD OPT. ENTRY ADR - 

'-i* <ENT ADR>. ALL HEX VALUES - 

* CONVERTED TO ASCII FOR 
TRANS. IN TEKTRONIX FROMAT 

packets; and up to ten 

- ATTEMPTS AT PACKET TRANS. * 

* WILL BE MADE. « 



- SYNTAX: SEND <BGNADRXENDADR> * 

* [<ENT ADR>]* 

^ '-if 



*»v ^ 

^4% ^ #4^ ^ #4« ^ 



^ JU %i 



^ 



vu «p^ 

^1% ^ ^ ^ •»,<* ^ ^ •»!% ^ 



CONSTANT 

( INCLUDE GLOBAL CONSTANTS ) 



EXTERNAL 



FNAME 


PROCEDURE 


EIARG 


LABEL 


GETADR 


PROCEDURE 


SNDMSG 


PROCEDURE 


SKIPLN 


PROCEDURE 


CMDPAS 


PROCEDURE 


CONVB 


LABEL 


CONVW 


PROCEDURE 


EROR 


LABEL 


GETACK 


PROCEDURE 


OUTLNE 


PROCEDURE 


GLOBAL 


^SECTION SEND 
$REL 0 


PROC 
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f'00e 



0000 

0002 

0004 

0006 

0008 

000A 

000C 

000E 



0010 

0012 

0014 

0016 

0013 

0014 
001C 
001E 
0020 
0022 
0024 
0026 

0028 

002A 

002C 

002E 

0030 

0032 

0034 

0036 

0038 

003A 





GLOBAL 

SNDPAC PROCEDURE 




f «*<• 

1 ^ 


3;ss{:;5:5j:5;c3jc3{c5jc5jt3}c5;« 




* SNDPAC: FORMATS TRANSFER PACKET * 






DATA IN TEKTRONIX FROMAT - 




❖ 


AND SENDS TO MCZ. * 




REG 


USE: INPUT R8 = 3GN ADR “S' 






R9 = WORD CNT - 






RETURN R8 = 3GN ADDR OF * 






NEXT AND Z IF LAST’!' 

•A* 




'T‘ 

?5i:}c5{;5;c:;c 3^ 


jjs 5{s:^ 5 ;: sj? 5 ^: 3 ;? 3 ;? 3;c:Jc 3}: 3{: 3|« sJj sjs sj: s{s 3^c 3jc 3;« sjs sjs 3;< | 


8D38 


ENTRY 

CLR 


R3 


C82F 


LD3 


RL0,# V' 


6ES8 


LD3 


0UTBUF(R14) ,RL0 ! STORE / ! 


0060 

69E0 


INC 


OUTPTR(R14) ,#1 


0306 

8D94 


TEST 


R9 


9E06 


RET 


Z 




! CONVERT 


BGN ADR TO ASCII, ADD TO CKSUM ! 


A185 


LD 


R5,R8 


34CA 


LDA 


R10,R12(#CONVW) 


0000’!' 

1FA0 


CALL 


0R10 ! CONVERT ASCII ! 


A195 


LD 


R5.R9 


34CA 


LDA 


R10,R12(#CONV3) 


0000’S' 

1FA0 


CALL 


0R10 ! CONVERT WORD ! 


A0BD 


LDB 


RL5,RL3 


34CA 


LDA 


R10,R12(#CONVB) 


0000-4t 

1FA0 


CALL 


OR 10 




! FORMAT 


ALL DATA ! 


8D38 


CLR 


R3 


208D 


PROCLP: 

LDB 


RL5,0R8 


34CA 


LDA 


R10,R12(#CONVB) 


0000# 

1FA0 


CALL 


OR10 


A980 


INC 


R8,#l 


AB90 


DEC 


R9 


EEF9 


JR 


NZ, PROCLP f CONT CONVERSION ! 


A0BD 


LDB 


RL5,RL3 ! DONE, STR CKSUM ! 


34CA 


LDA 


R10,R12(^CONV3) 
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003C 

003S 

0040 

0042 

0044 

0046 



0046 



0046 

0048 

004A 

004C 

004S 

0050 

0052 

0054 

0056 

0058 

005A 

005C 

005E 

0060 

0062 



0062 



0062 

0064 

0066 

0068 

006A 

006C 

006E 

0070 

0072 



0000- 






1FA0 


CALL 


0R10 


1E20 


CALL 


GR2 


8D43 


RESELG 


Z 


9E08 


RET 





END SNDPAC 



I CONVERT GKSU^I 



GLOBAL 

LASTPC PROCEDURE 

I ^ 5(6 3(6 3(6 >}6 3y6 3,6 3(6 3(6 3(6 3(63(6 3(6 3(6 3(6 ^ 3(6 3(p 3(C 3(6 5(6 3(c 3(63(6 



^4* V# 

#1^ >!■» ^ #1% 



* LASTPC: EORf^ATS LAST PACEET FOR - 

TRANS WITH ENTRf ADR, - 

- COUNT=0, AND CKSUM. * 

3(6 3(: 

« REG USE: INPUT R6 = ENTRY ADR - 

5}t ijc 

3(6 3(63(6 3(i 3(6 3{6 5(6 5(6 3(6 5(6 5(6 5(6 3(6 5(6 5(6 5(6 3(6 5(6 3(6 5(6 3(6 3(6 3(6 3(6 3(6 5(6 :|6 3(6 3(6 3(6 3(6 3(6 5(6 3(6 3(6 3(6 3(6 3(6 3(6 3(6 f 

ENTRY 



A 165 


LD 


R5,R6 




34CA 


LDA 


R10,R12^#CONVW) 




0000- 

1FA0 


CALL 


OR 10 ! 


CONVERT BYTE 


CD00 


LDB 


RL5,#0 




34CA 

0000* 


LDA 


R10,R12(#CONV3) 




1EA0 


CALL 


OR10 ! 


CONVERT WORD 


A0BD 


LDB 


RL5.RL3 ! 


LOAD CKSUM ! 


34 C A 
0000* 


LDA 


R10,R12(#CONVB) 




1FA0 


CALL 


OR 10 




1E20 


CALL 


0R2 ! 


SND TO ! 


9E08 


RET 








END LASTPC 







GLOBAL 

SRMSG PROCEDURE 

i %A^ 

f ^1^ ^1^ >1% ^1% >1^ 



► ^ ^1% ^ 



ERMSG: SENDS ASCII // MSG TO 
’i' MCZ TO ABORT SEND ChD. 



%V « 

«Y» ^ ^ ^ ^ ^ ^ ^ ^ 



» 4^1# %v 

% ^ 4*<» 



%V 



-! 



ENTRY 

C02F LDB 

CS2F LDB 

6EE0 LD 

0080 

76SD LDA 

0080 

A9D1 INC 

6FED LD 

0306 



RH0,# V' 

RL0,# V' 

0UTBUF(P.14) ,R0 ! LOAD BUF // 

R13,0UTBUF(R14) 



R13,#2 

0UTPTR(R14) ,R13 
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?£74 


34 C A 


LDA 


H10,R12(#OUTLNE) 


0076 


0000* 






0078 


1FA0 


CALL 


OR10 ! OUTPUT 


007A 


9E08 


RET 




007C 




END ERMSG 





- MCZ ! 



007C 



GLOBAL 

SEND PROCEDURE 

■ V* V? »** »’•» »*' «A» »'» JU %*» v*> »<« **> «J» %•» vl» iJ« »•< 

T ^ *r* 'I' ^ n' ■»»* *r* •'*- ^ 'c *v* »r* n* 't* *>•' *\* -c *r •'•- -•- »tr -r •'C '•' J,*. <^« «|<> ^ ,•,* -■,« 

* 5l< 

* SEND: FOPMATS AND TRANSFERS PACS - 

* CONTAINING DATA FROM THE - 

* SPECIFIED MEMORY AREA TO BE SAVED * 

^ kS k MCZ FILE. * 



ENTRY 



007C 


34CA 


LDA 


R10,R12(#FNAME) 


007E 


0000* 






0060 


1FA0 


CALL 


GR10 ! CE FNAME ! 


0082 


0B0B 


CP 


R11,#%FFEE ! CK FOR NO ADR 


0084 


FFFE 






0086 


E60B 


JR 


Z.GOTERE 


0088 


A1B8 


LD 


R8.R11 ! SAVE BGN ADR 


008A 


34 C A 


LDA 


R10,R12(#GETADR) 


008C 


0000* 






008E 


1FA0 


CALL 


0R10 


0090 


E706 


JR 


C.GOTERR ! ERROR ! 


0092 


A137 


LD 


R7,R3 ! SAVE END ADR ! 


0094 


34CA 


LDA 


R10,R12(#GETADR) 


0096 


0000* 






0098 


1FA0 


CALL 


0P10 ! GET ENT sDR ! 


009A 


A136 


LD 


R6,R3 


009C 


8387 


SUB 


R7,R8 ! « BYTES ! 






GO TERR: 




009E 


34CA 


LDA 


R10,R12(#EROR) 


00 A0 


0000* 






00A2 


1EA7 


JP 


C,OR10 ! RTN EXEC ! 


00A4 


A970 


INC 


R7 I BYTE COUNT ! 


00 A 6 


65E3 


SET 


MFLAGS(R14) ,#SNDMDE 


00A8 


031C 




! SIG SND MODE ! 






! SEND CMD 


TO MCZ TO LOAD SEND PROGRAM ! 


00AA 


34CA 


LDA 


E10,R12(#CMDPAS) 


00AC 


0000* 






00AE 


1FA0 


CALL 


0R10 ! SND CMD ! 


00B0 


9E06 


RET 


Z 


00B2 


34CA 


LDA 


R10,R12(#GSTACK) ! GET ACK ! 


00B4 


0000* 






00B6 


1FA0 


CALL 


0R10 
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00E8 


E603 


JR 


Z,AC 




00BA 


3402 


LDAH 


R2,0?ERR 


! SEND FILE OPEN ! 


00EC 


00B0 








00BE 


E83B 


JR 


PEM 


! ERROR TO CONS ! 


P0C0 


67E5 


AC :BIT 


MFLAGS(?.14) ,#S 


SC 


00C2 


031C 








00C4 


E607 


JR 


Z ,AD 


! CK FOR ESC KEY ! 






ISEND ABORT 
SNDABT : 


TO CONSOLE AND 


MCZ IF REC ESC KEY ! 


00C6 


D033 


CALR 


ERMSG 




00C8 


3402 


LDAR 


R2, ABTMSG 


! SND ABORT MSG ! 


00 C A 


0086 








00CC 


34CA 


LDA 


R10,R12(#SNDMSG ) 


00CE 


0000^ 








00D0 


1FA0 


CALL 


C«R10 




001)2 


9E08 


RET 






00D4 


4DF5 


AD;LD 


RETRY (R14 ) ,^10 




00D6 


0342 








00D8 


000A 








00DA 


0B07 


C? 


R7 ,»30 




00DC 


001E 








00BE 


EF03 


JR 


NC.COMP ! 


KBYTES SND > 30 ! 


00E0 


A 179 


LD 


R9 , R7 ! 


#<30, USE REST ! 


00E2 


8D78 


CLR 


R7 ! 


LAST PACKET ! 


00E4 


F804 


JR 


AE 








COMP : 






00E6 


2109 


LD 


R9,#30 ! 


SND 30-BYTES ! 


00E8 


001E 








00EA 


0307 


SUB 


R7,i/30 ! 


GST NEW #BYTES ! 


00EC 


001S 








00EE 


A19B 


AE:LD 


R11.R9 ! 


SAVE COUNT ! 






! MAIN RETRY LOOP FOR RESENDIMG PACKETS TO MCZ ! 






RESEND: 






00P0 


67E5 


BIT 


MFLAGS(R14) ,#ESC ! CK FOR USER ABORT 


00F2 


031C 








00E4 


EEE8 


JR 


NZ, SNDABT ! 


GOT, SND ABORT. . . I 


00P6 


34C2 


LDA 


R2,R12(#0UTLNE) 


00F8 


0000’!' 








00FA 


D07E 


CALR 


SMDPAC 




00FC 


S60F 


JR 


Z.LONE ! 


SND LAST PACKET ! 


00FE 


34CA 


LDA 


R10,R12(#SKIPLN/ 


0100 


0000* 








0102 


1FA0 


CALL 


OR 10 ! 


SKI? MCZ INPUT ! 


0104 


34CA 


LDA 


R10,R12(#GETACK) 


0106 


0000* 








0108 


1FA0 


CALL 


0R10 ! 


WAIT FOR ACK ! 
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010A 


ES01 


JP. 


NZ.AF ! REC NON-ACK ! 


010C 


E8E3 


JR 


AD ! REC ACK ! 


010E 


E711 


AF:JR 


C.AG ! REC 9 FOR ABORT ! 


0110 


83E8 


SUB 


P8 , PI 1 


0112 


A1B9 


LD 


R9.R11 I RESEND ! 


0114 


6BE0 


DEC 


RETRY(R14) ,#1 


0116 


0342 






0118 


E615 


JR 


Z, SNDSTP ! SEND DONE ! 


011A 


E8EA 


JR 


RESEND 






! SEND LAST 


PACKET TO MCZ ! 






LONE : 




011C 


34C2 


LDA 


R2,R12(#0UTLNE) 


011E 


0000^ 






0120 


B06E 


CALR 


LASTPC ! PREPARE LAST PAC ! 


0122 


34CA 


LDA 


R10,R12(#SKIPLN) 


0124 


0000« 






0126 


1FA0 


CALL 


GR10 ! SKIP MCZ ECHO 1 


0128 


34 C A 


LDA 


R10,R12{i#GETACK) 


012A 


0000- 






012C 


1FA0 


CALL 


0R10 ! WAIT FOR ACK ! 


012F 


9E06 


RET 


Z ! FINISHED...! 


0130 


EF06 


JR 


NC,AZ 1 RESEND ! 


0132 


3402 


AG:LDAR 


R2.WRTERR 


0134 


0024 










PEM: 




0136 


34CA 


LDA 


R10,R12(#SNDMSG) 


0138 


0000# 






013A 


1FA0 


C ALL 


0P.10 ! SEND WRITE EPFOR ! 


013C 


9E08 


RET 




013E 


6BE0 


AZ:DSC 


RETRY(R14) ,#1 


0140 


0342 






0142 


ESD6 


JR 


NZ .RESEND ! TRY AGAIN I 






SNDSTP: 




0144 


D072 


CALR 


ERMSG 


0146 


3402 


LDAS 


R2.CKMSG 


0148 


0036 






014A 


34CA 


LDA 


R10,R12(#SNDMSG) 


014C 


0000# 






014E 


1FA0 


CALL 


0R10 ! SND CKSUM ERROR ! 


0150 


9E08 


RET 




0152 




END SEND 
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ABTMSG : 



0152 


07 


BVAL 


%07 


0153 


2E 


BVAL 


V' 


0154 


4142 


WVAL 


'AE 


0156 


4F52 


WVAL 


'OR 


0158 


54 


BVAL 


'T' 


0159 


0D 


BVAL 


%0D 






WRTERR : 




015A 


18 


BVAL 


OD 


015B 


2F 


BVAL 




015C 


4649 


WVAL 


'FI 


015E 


4C45 


WVAL 


'LE 


0160 


2057 


WVAL 


' W 


0162 


5249 


WVAL 


'RI 


0164 


5445 


WVAL 


'TE 


0166 


2045 


WVAL 


' S 


0163 


5252 


WVAL 


'RR 


016A 


4F52 


WVAL 


'OR 


016C 


0D 


BVAL 


%0D 


016D 


20 


BVAL 





OPEEP-: 



016E 


17 


BVAL 


^5^17 


016F 


2F 


BVAL 


7 ' 


0170 


4F50 


WVAL 


'OP' 


0172 


454E 


WVAL 


'EN' 


0174 


2046 


WVAL 


' F' 


0176 


494C 


WVAL 


'IL' 


0178 


4520 


WVAL 


'S ' 


017A 


4552 


WVAL 


'SR' 


017C 


524F 


WV»L 


'RO' 


017E 


52 


BVAL 


'R' 


017F 


0D 


BVAL 


%0D 






CXMSG: 




0180 


12 


BVAL 


%12 


0181 


43 


BVAL 


'C' 


0182 


4B53 


WVAL 


'KS' 


0184 


554D 


WVAL 


'UM' 


0186 


2045 


WVAL 


' E' 


0188 


5252 


WVAL 


'RR' 


018A 


4F52 


WVAL 


'OR' 


018C 


01) 


BVAL 


%0D 


013D 


20 


BVAL 








END SEND 


CMD 



0 errors 

Assembly complete 
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APPENDIX C - ECOTLOAD Program Listing 
A. PROM PFOGRAMMING 

The Eootload program listing contained in sections B - F 
was programmed into the firmware by the use of the two 
support programs 'ZSXFER and CPMXFR) of Appendix S and the 
following nrocedures. 

1. Bootup the SASS hardware to the monitor program by 
the following seouence of actions: 

RESET 

TYPE <CR> 

RESET MCZ System 

TYPE <CR> 

DEPRESS ’’INTA" switch (NMI) 

(displays: LOADING ) 

When prompt appears ('*'), the monitor is loaded 
(approximately 20 sec). 

2. Bootup the INTEL MDS System with a CP/M disk having 
the CPMXFR program. 

3. On the SASS Developmental System, load the desired 
bootload program into memory at address 6000 FEX 
by the following command: 

TYPE "load <Filename> 6000" 

4. Load Z9000 transfer program (CPMXFR^ by: 

TYPE "LOAD CPMXFR" 
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5. Setup to execute transfer program with the following 
command s : 

TYPE "P RPC <CR^" 

TYPE ‘A900 <CR>‘ 

TYPE "5000 <CR>” 

6. Connect the cable between the TTY port on the MD3 
system and connector 'h' on the SASS system, 
(connector 'A' is the MCZ port cable of MBC ) 



7. Execute the CP/M transfer program (CPMXER) on the 
MDS system, selecting code transfer ('C'). 

8. On the SASS system, begin transfer by the following 
actions : 

TYPE "G <CR>" 

After the transfer is completed, the SASS monitor will 
display the prompt ( , and the MDS system will provide an 
indication that two files (PROM0S.OBJ and PROM09.OBJ) have 
been created. 

To move the file first to ISIS-II and then to the PROM 
programmer, the following procedures apply: 



9. On the MDS system with an ISIS-II dislc in drive B:, 
transfer the two CP/M files to ISIS as follows: 

TYPE 'TOISIS PHOM08.OBJ <CR> ’ 

TYPE "TOISIS PROM09.OBJ <CR>" 
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10. Reboot MDS system with ISIS-II iisk in drive A: and 
and convert OBJ files to K2X files as follows: 



TYPT "OPJHRX PROM08.CBJ TO PROM06.HSX <CR>" 
TYPE "OBJEEX PEOM09.OBJ TO ^ROM09.HEX <CR>” 

11. Execute UPM (Universal PROM Programmer) by: 

PLi'CE CLEAN PROM IN PROGRAMMER 
TYPE "UPM. <CR>" 

TYPE "READ EILE PROM08.HEX INTO 0000" 

TYPE ’PROGRAM FROM 0001 TO 2016 START 0000* 
PLACE CLEAN PROM IN PROGRAMMER (high byte) 
TYPE ’READ FILE PROM09.HSX INTO 3000’ 

TYPE "PROGRAM FROM 0000 TO 2047 START 0000" 

The PROM's are now programmed. 
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30CT10AD PROGRAM LISTING 



1. BOOTLOAOl MODULE 



Z600^^AS^ 2.02 

LOG OBJ CODE STMT SOURCE STATEMENT 

1 BOOTLOADl MODULE 
$LISTCN $TTY 

CONSTANT 

RXR := 2 

TXR := 0 

PiR := 7 

POPTAD := %EED9 

PORTED := %EEE1 

POHTAC := %EEDB 

PORTBC := %EFE3 

IDPCRT := %EFCB 

ICPORT ;= %FFC9 

R0M_DISABLE := %FFF0 
TCMD := %FFD2 

TDTA := %FFD0 



BUS_LOCK := 

BUS_UNLCCK 

VINTR 



VIBIT 

ESCAPE 

BS 

LINDEL 



CR 



LF 

TXOFCH 

TXONCH 



%FFF9 

:=%FFF8 

'^( 2)0001000000000000 

12 

%1B 

%08 

%7F 

%0D 

%0A 

%13 

%11 



INSIZ := 

OUTSIZ 
R3SIZ := 

! BIT POSITIONS 
TRPMDS := 

ISTCP := 

OSTO? 



123 ! INTBUF SIZ 

128 I OUTBUF SIZ 

256 ! RING BUFFER 

IN MONITOR FLAG WORD ! 

0 

1 

2 



SIZE ! 
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SNDMDE ;= 3 

LDMDE := 4: 

ESC ;= 5 

TXr^SK := %6 

COMDS := 11 

MAX CPU := 8 



TYPE 

MESSAGE ARRAY [3 WORDl 
MEM ARRAY ARRAY [32 WORDl 
SWITCH A?RAY[3 WORD] 
C?U_ENTRY RECORD [ 



SIGNAL 
CPU_ID 
MSG ELK 



MEM_^AP 

ID_ fpRAY 
ENTRY ARRAY 



WORD 
WORD 
MESSAGE 
MEM_ ARRAY] 

APR? Y [MAX_ CPU WORD] 

ARRAY [MAX_CPU CPU_ENTRY] 



INTERNAL 

^SECTION TA3LE1_DATA 
$AES 0 



0000 



CONFIG_TABLE RECORD [ 

RW_PATTERN WORD 
CPU_iNUM WORD 
NORM RW PAT WORD 



NORM_CPU_CNT 
TABLS_LOCK 
CPU_CNT 
CPU LIST 



WORD 

WORD 

WORD 

ENTRY_ARRAY] 



INTERNAL 

is EC T I ON DATA_DEC 
$ABS 0 



0000 


INTEUF 


ARRAY 


[128 


BYTE] 


0080 


OUTBUF 


ARRAY 


[128 


BYTE] 


0100 


RNGBUF 


ARRAY 


[256 


BYTE] 


0200 


MCZBUF 


ARRAY 


[256 


BYTE] 


0300 


BUFADR 


WORD 






0302 


BUFSIZ 


WORD 






0304 


INTPTR 


WORD 






0306 


OUTPTR 


WORD 






0308 


UNIMP 


WORD 
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030 A 


BRKCNT 


WORD 


*?3PC 


NXTPTR 


WORD 


030E 


aETOUT 


WORD 


0310 


MCZPUT 


WORD 


0312 


MCZGST 


WORD 


0314 


BRESTR 


WORD 


0316 


3RKADR 


WORD 


0318 


TMPSP 


WORD 


031A 


TMPECW 


WORD 


031C 


MFLAGS 


WORD 




! USEE REG I STEF STORAGE ! 


031E 


R0 


WORD 


0320 


R1 


WORD 


0322 


R2 


WORD 


0324 


R3~ 


WORD 


0326 


R4 


WORD 


0323 


R5 


WORD 


032A 


R6 


WORD 


032C 


R7 


WORD 


032E 


R8 


WORD 


0330 


R9 


WORD 


0332 


R10 


WORD 


0334 


Rll 


WORD 


0336 


R12 


WORD 


0338 


R13 


WORD 


033 A 


P14 


WORD 


033C 


R15 


WORD 


033E 


RPC 


WORD 


0340 


REC_ 


WORD 


0342 


RETRY 


WORD 


0344 


ADR STR 


WORD 


0346 


CMDTBL 


ARRAY [12 WORD] 



00*00 



INTERNAL 


$SECTION 


PSA DATA 




$ABS 0 


PSA 


RECORD [ 






DATA AREA 


WORD 




CODE AREA 


WORD 




UNIMP INST 


SWITCH 




PR IV INST 


SWITCH 




SYSTEM CALL 


SWITCH 




SEG TRAP 


SWITCH 




NMI INT 


SWITCH 




NVI INT 


SWITCH 
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VEC_FCW WORD 

VSC PC ARRAY [200 WORD] 

1 " 



$SECTION EXEC_PROC 
EXTERNAL 

NMI PROCEDURE 
CONINT PROCEDURE 
MCZHND PROCEDURE 
BOOTLOAD_CPU PROCEDURE 
MEM CPU LABEL 



0000 



GLOBAL EROR LABEL 
GLOBAL EXEC LABEL 
GLOBAL INITL PROCEDURE 

^ wu ou «JU 

^1* ^1% ^1^ ••gS* #1^ #1% ^1% ^1% 



DMOMITOR INITIALIZATION 



«JU *J^ %JU %v %i# yu wu V# %V I 

#1% >1^ ^1% #1% ^|«#|>« #1% #|« 0ym ^1% ^1^ >1% | 



0000 


0S00 


ENTRY 
ORGADP : 
WVAL 


%0E00 


! UN IMP INST ! 


0002 


4000 


WVAL 


%4000 




0004 


0008' 


WVAL 


STARTP 




0006 


FlFl 


PHYS ID: 
WVAL 


%F1F1 


! UNIQUE PHYS ID ! 



f 3;^^;^::c5;^:;c:^::;c5:«5{^7^:^^5^::^C3{ss5s5^:5;c3^5;5:^:5;?:^^>^:(c^^:s}:5^?5^;:^c5f:>;^5{C5{^>}:5^?:^csJs^ics^^3{^ 

S^fJ 5|S 

« INDEPENDENT PROCESSOR STAGE 



yu y# y # yu y# y# %v y^ yu yu yu y«» y# t 

^ ^ ^ ^r**^ ^ ^ ^ ^ ^Ir* ^ ^ ^ I 



! START OF INITIAL ENTRY TO DMONITOR ! 
STARTP: 

f 5,'c5jc>{c j|S5;s5;j:{c:*^5{S5;is;c?;i5j:5;«:{:3»:5j:5;«:;4:;:3!c:i;s5;: 5^:3^ j;r^5jss;:5i« 

CLEAR MEM: 'CLEARS' MEMORY BY WRIT- ’i' 

* TNG R/W pattern <55AA> AT THE - 

* BEGINING OF EACH BLOCK AMD * 

* CLEARING THE NEXT THREE WORD * 

* LOCATIONS. CPU WILL WAIT AT 

* THE END FOR A PERIOD OF TIME * 

=!' (APPROX. 2MSEC). - 



s;t5;:5jc>!s5;«5;s3{5:i'c3;c5;«35c:^:5;c3*t34c:<::{C5{j:|s:j!:tc35c5;i3;«3}ca;s5^i:ic:C:5:s5;i3;«5{c3{J3;:>;s34c3;:3}::{« ? 



0008 

000A 


2104 

F800 


LD 


R4,#%F800 


! TOP MEM BLOCK ! 


V^00C 

000E 


2101 

55AA 


LD 


R1 ,#%55AA 


! R/W PATTERN ! 
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2210 


8D28 


CLR 


R2 


0012 


8P43 


RES7LG 


Z 






! MAIN LOOP 


FOR CLEARING MEMORY ! 






CLEAR MEM,: 








DO 




0014 


A 143 


LD 


R3 ,R4 


0016 


A 931 


INC 


H3 ,#2 


^^018 


2F41 


LD 


0F4,T51 ! STORE PATTER 


001A 


2105 


LD 


R5 


00 1C 


0005 










DO 




001S 


2232 


LD 


0R3,R2 


0020 


A931 


INC 


R3 ,#2 


0022 


AB50 


DEC 


P5 


0024 


2601 


JR 


Z,NXT_ONE 


0026 


2823 


OD 








NXT_ONE: 




0028 


0304 


CP 


R4,#%0000 ! CK FOR LAST : 


002A 


0000 






002C 


2603 


JR 


Z, WAITl 


0022 


0304 


SUE 


R4,#%0800 


0030 


0800 






0032 


2820 


OD 








WAITl : 








J 5{S jjs 3>{t 5^ 


*,1# ^ WU ikl# 

^1% #1% >1^ ^1^ , 






* CPU WAITS APPROX. 2MS2C FOR ALL 






- CPU'S TO 


COMPLETE THE SAME TASK 






* BEFORE CONTINUING. 






«JU 

-O O- '1' -I' *l'‘ 'f *1' ^ 


*IU ^ V# »iU *v ^ •if «>*•* ^ ^ *JU «IU mtf ^ ^ JU 1 

#1^ #1% ^1^ ^1% 4 


0034 


2103 


LD 


R3,^50 


0036 


0032 










DO 




0038 


1904 


MULT 


RR4,#1 


003 A 


0001 






003C 


AB30 


DEC 


R3 


0032 


2601 


JR 


Z ,SCRI3E_MEM 


0040 


2823 


OD 
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^ 1 ^ «•,% < 1 ^ 

❖ 



a* «Ji|f O 

'I 



’|»» 1 - »t* '«»**'» ■ 



- SCRIBE_MF^: TRAVERSES THROUGH MEM 

* BLOCKS SEARCEIMG FOR R/W PAT- 

- TERN INDICATING ACCESSIBLE 

* MEMORY (RAM). CPU INDICATES 

* ITS PRESENCE BY INCREMENTING 

* STORED CPU_NUM. CPU WAITS FOR 

* FOR A PERIOD OF 2MSFC . 



5 *% 












5{C 

5|J 







*A« »V» *1^ 

'1^ »t» O' ^ n* n' ^ O' 


:5;2>'c^:<C5;?3;{:;sHc5:c3j:5;c3;c:<s:Js5:s:,'«5!«5ic3}6 5js3:s>’.S5;i:{c5'r3t5?J:3;:5{« ; 






SCRIBE MEM: 






C042 


2104 


LD 


R4 ,#^F800 


! TOP BLOCK ADR ! 


0044 


F800 


! MAIN LOOP 


FOR MEMORY 


SCRIBE ! 






DO 






0046 


2148 


LD 


R8.0R4 




0043 


8B18 


CP 


R8,R1 


! CK FOR R/W PATTERN 


004A 


EE09 


JR 


NZ, NOMATCH 


! NOT FOUND ! 






! CPU INDICATES ACCESS 


TO THIS BLOCK ! 


004C 


^43 


LD 


R3 , ?4 




004E 


A 931 


INC 


R3,#2 


? GET CPU_NUM ADR ! 


0050 


3B26 


OUT 


BUS L0CK.R2 ! MUTUAL EXCLUSION 


0052 


FFF9 








0054 


2138 


LD 


?.e.0E3 


! GET CPU NUM ! 


0056 


A980 


INC 


R8,#l 


! INCREMENT ! 


7 058 


2F38 


LD 


0R3,R8 


! RESTORE ! 


005A 


3E26 


OUT 


BUS_UNLOCK 


,R2 


005C 


FFF8 


NOM4TCH; 






005E 


8D44 


TEST 


R4 




0060 


E603 


JR 


Z ,WAIT2 


! FOUND LAST BLOCK ! 


<^062 


0304 


SUB 


R4,#^%0800 




0064 


0800 








0066 


E8EF 


or 
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^Ges 

006A 

GG6C 

0065 

0070 

0072 

0074: 



0076 

0078 

007A 

007C 

0075 



0080 

0082 

00S4 



0086 

0088 

008A 

008C 

008E 

0090 



- CPU WiilTS i^PPEOX. 2MS5C FOE ALL - 

CPU'S TO CC^^PLETF THE SAME TASK - 

BEFOEE COMTINUING. 

^ s!< 



2103 


LD 


R3,#50 


0032 


DO 




1904 

0001 


MULT 


RR4,#1 


AB30 


DEC 


R3 


E601 


JR 


Z ,DEFINE_MEM 


F8FB 


OD 






t »•# ^ «ju 



’ # 



- DEFINE_MEM; CPU SEARCHES FOR LOWEST * 

’’•= MEMORY BLOCK WITH HIGHEST CPU * 

- COUNT (GLOBAL) AMD LOWEST MEM * 
BLOCK WITH CPU_NUM = 1 (LOCAL). - 

"r 

* REG USE; RETURN R7 = LOW GLOBAL - 

R6 = LOW LOCAL - 

- R5 = CPU_NUM (HIGH)-'' 



DEFINE MEM: 



8D58 


CLR 


R5 






2104 


LD 


R4,#%F800 


; 


TOP block ADR ! 


F800 










»146 


ld 


R6,R4 


j 


LOCAL START ! 


A 147 


LD 


R7 ,P4 


j 


GLOBAL START ! 




DO 








2148 


LD 


R8 ,0R4 






SB18 


CP 


R8 ,R1 


f 


CK FOR R/W PATTERN 


EE0C 


JR 


NZ.NEXT BLK 


t 


NOT ACCESSIBLE ! 




\ CHECK FOP 


LOCSL OR GLOBAL 


r 


A142 


LD 


R2 ,R4 






A 921 


INC 


R2 ,#2 


f 


GET CPU NUM ADR ! 


2123 


LD 


R3 ,0R2 


f 


GET CPU NUM ! 


0B03 


CP 


R3,#l 


! 


CK FOR LOCAL ! 


0001 










E605 


JR 


Z,LOCAL_MEM 







! RECORD GLOBAL MEM AND UPDATE CPU NUM ! 



0092 


8B53 


CP 


R3.E5 






0094 


E704 


JR 


C.NEXT BLK 


I 


R5 IS HIGHEST ! 


0096 


1135 


LD 


R5,R3 


; 


UPDATE CPU CNT ! 


0098 


A147 


LD 


R7.R4 


j 


UPDATE GLOBAL ADR ! 


009A 


E801 


JR 


NEXT BLK 










! RECORD LOCAL MEMORY ! 










LOCAL MEM 


1 : 






009C 


A146 


LD 


R6,R4 


f 


UPDATE LOCAL ! 






NEXT BLK; 








009E 


8D44 


TEST 


R4 






00A 0 


E603 


JR 


Z.SPEC CASE 


f 


FINISHED ! 


00A2 


0304 


SUB 


?4 ,i<^0800 


[ 


GET NEXT BLOCK ! 


00A4 


0800 










00A6 


ESEC 


OP 












t J}!s:«5ic:;5 jjr? = 


LOW GLOBAL 




R6 = LOW LOCAL «##>!«! 






! 


R5 = 


CPU 


COUNT ! 



SPEC CASE: 







I sisx^sX^t 


EOR SINGLE PROCESSOR MONOBOARD CASE 


00A8 

00AA 


2107 

FS00 


LD 


R7,#%FS00 


00AC 


EE04 


JR 


NZ, STACK INT 


00AS 

0030 


2107 

8000 


LD 


F-7 ,#%8000 


00B2 

00B4 


2105 

0001 


LD 


R5,#l 



STACK IMT: 






aj; 

n' 

■j, 

*r* 

ajc 

❖ 

sic al:5;< 5li 



LOCAL INITIALIZATION STAG:S 

INITIALIZATION OF INTERNAL CPU 
SPECIAL PURPOSE REGISTERS 
AND CPU DATA STRUCTURES. 



WU OU 

#1^ 



sic 



ale 



s*^ 






f 3’^slsa!c:^c3;c;j:3{:i;c:{c:^i5;i:;c:jsy^3;{3;c:{:3;c5;s3;r:je5(c5lc?5c5lc5;r5t:5ls>|s:j:5'^>ls5',s5>:3}c5;ss4s3}c5;« ?;c 

'* LOAD PROGRAM STATUS AREA POINTER * 

^ sf^ *v %i# w*# %t# %i« %*A %Aa %Ii« y# y^ y# «o i 

41*4^ #([^ #1^ ^1% #1*^ #,• #1’% #1^ #1% ^1% <4 #1^ ^|S 0^ #g« 4^ #1% Ay #P f 



O0B6 A161 LD Rl,?.6 

00B8 0101 ADD Rl,#%0100 ! SET PSA ! 

00BA 0100 
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?SAPC?F,R1 



! LOAD PSAP ! 



00PC 7D1D 



00C8 PF36 



00r2 2101 

00D4 9F00 
00D6 7D13 



LBCTL 

! R6 CONTAINS LOW me^IOHY AREA FOR DMONITOR DATAl 



! DATA_AR3A ? 

! SET CODS ADR ! 



! R12=CCDE ADR R14=DATA AREA -*** ! 

I S|C5^5;£<S3!S3!Sj;«^3}:5i5:;jSit5S5!«5;«SrS)'5?5!!5!«S!S>lS5!!5!:>rS^J!e 

’i* SET STACK POINTER 

5;rj;c ?;« Jjr:;: 5;?5{c 5|c5jf 5^ 5j::js ?{c5;s f 



00PE A 164 


LD 


R4 ,R6 


00C0 0104 


ADD 


R4,#%0200 


00C2 0200 






00C4 A14E 


LD 


R14.R4 


00C6 340C 


LDAR 


R12.ORG ADR 



00 c A 


A 161 


LD 


R1 .E6 


00CC 


0101 


ADD 


R1 .#%00F0 


00CE 


00F0 






C0D0 


AllF 


LD 


R15.R1 ! 



! SET DP STACK PTP ! 



! =!'* INITIALIZE REFRESH CNTR REGISTER ! 
LD ai,#‘?SE00 ! LD RATE VALUE ! 

LDCTL REFRESH. R1 

f :{s>;e3;c3{c>}: :[c5tC5;j:{C3{f 5jc 5 ;: ^5jc:;<5{c5;s 2;: ^ 



5 !^ 



* SFTW_INIT: INITIALIZES ALL BASIC 

DATA STRUCTURES FOR TEE 
« SINGLE PROCESSOR. 

* 5^. 

5jJ2;e3jC55S3;sJtc5;c5{:3ic5;c3;ss;« s;c ? 

f CLEAR DMONITOR RAM AREA ! 



00DS 


A162 


LD 


R2.R6 f CLR DMONITOR 


RAM ! 


00DA 


A 121 


LD 


PI .R2 




00DC 


A 911 


INC 


R1 .#2 




00DE 


2103 


LD 


R3,#%250 




00E0 


0250 








00E2 


0D65 


LD 


GP.6.#0 




00E4 


0000 








00E6 


BB21 


LDIH 


GR1.0R2.R3 




00E8 


0310 


! INITIALIZ 


E BLANK BUFFERS ! 




00EA 


34E2 


LDA 


E2.R14(«INTBUF) ! FILL CONS 


00 EC 


0000 








00EE 


34E1 


lda 


R1.R14(#INTBUF) ! WITH 


SPACES 
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00F0 
0GF2 
00F4 
00F6 
70F8 
00 FA 
00FC 
00FE 



0100 

0102 

0104 

0106 

0108 

010A 

010C 

010F 



0110 

0112 

0114 

0116 

0118 

011A 

011C 

011E 

0120 

0122 

0124 

0126 

0128 



012A 
01 2C 
012E 
0130 
0132 
0134 



0136 

0138 



0000 

»911 


I NC 


R1 ,#2 


2103 


LD 


R3,#INSIZ 


0080 

0D25 


LD 


0R2,«' ' 


2020 

BB21 


LDIR 


0R1 ,(3R2,R3 


0310 

34E7 


! LD FIXED 
LDA 


DATA IN RAM ! 

R7 .R14(#INTBUF) 


0000 

33E7 


LD 


?.14(#INTPTR) ,P7 


0304 

34E7 


LDA 


H7,R14(^OUTBUF) 


0080 

33E7 


LD 


R14UOUTPTR) ,R7 


0306 







"* INITIALIZE PROGRAM STATUS AREA * 

Xi 5|? 5}! sjt s;? jjs sjt >lC3;cj;< s;c5'^ :{t5;c 5{e sj: >|c s^c f 



7D25 


LDCTL 


R2,?SAP0FF 


2101 

4000 


LD 


R1 ,#%4000 


8D48 


CLR 


R4 


3423 


LDA 


R3,R2(#UNIMP_INST) 


0004 


DO 




7331 

0400 


LD 


R3(P.4) ,R1 


A 943 


INC 


R4,#4 


0B04 

001C 


CP 


R4,#28 


E601 


JR 


Z,LD_PC 


E8F9 


OD 

LD_PC: 




3423 

001C 


LDA 


R3 ,R2( #NMI_INT) 


76C4 

0000=<' 


LDA 


R4 ,NMI (R12) 


3334 

0002 


LD 


F.3(#2) ,E4 




f 


SET INTERRUPT HANDLE 


3423 

002A 


LDA 


R3,R2(#VEC_PC ) ! 



LOAD NMI HDLR 
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013A 


76C2 


LTA 


?2.C0NINT( 312) ICONS INPUT! 


313C 


0g00Sr 






013^ 


3332 


LB 


R3(#0 ) ,R2 


'^140 


C000 












I MCZ INPUT ! 


0142 


76C2 


LDA 


R2,MCZHNB(R12) 


0144 


0C00=<' 






0146 


3332 


LB 


R3(#4) ,R2 


0146 


0004 














- HBW INIT: INITIALIZES HARDWARE IC * 








TO A KNOWN 


STATE WITH ALL 








NECESSARY 


INPUT OUTPUT - 






5!« 


functions . 


INABBITION, THE - 








SYSTEM TIMER FUNCTIONS AND - 








INTERRUPT 


STRUCTURE IS SET * 






O' 


TO A KNOWN 


STATE. * 

ou 






<JU *JU 

O' O' O' O' O' 'i' o» o- 3r* 


s;s:;55;c:;ss’,:^5j: ^ 5 *^ :{«5;c5;s:;s5{s 5JC5;«^>J«3|S 5|cs;:;Jj J 






EDW INIT: 










! INITIft 


LIZF USARTS 


9551 ’^’ 5 ' ! 


014A 


2101 


LB 


R1 ,#’?00CE 


! SET MODE ! 


014C 


00CE 








014E 


3A96 


OUTB 


P0RTBC,RL1 




0150 


FFE3 








0152 


3A96 


OUTB 


PORTAC ,RL1 




0154 


FFBB 








0156 


2101 


LB 


R1 ,#%0027 


I TX, RX, RTS, DTR 


0158 


0027 








015A 


3 A 96 


OUTB 


PORTBC.RLl 




015C 


FFS3 








015E 


3 A 96 


OUTB 


PCRTAC.RLl 




0160 


FFBB 












! ** INIT. 


INTERRUPT CONTROLLER 8259A ** ! 


0162 


2101 


LB 


Rl,#%0013 


! LOAD ICWl ! 


0164 


0013 








0166 


3A96 


OUTB 


ICPORT.RLl 




0168 


FFC9 








016A 


2101 


LB 


R1 ,#%0000 


! LOAD ICW2 ! 


016C 


0000 








016S 


3A96 


OUTB 


IDPORT.PLl 
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0170 FFCB 



0172 


2101 


LE 


R1 ,#^0003 


! LOAD ICW4 ! 


0174 


0003 








0176 


3A96 


OUTB 


IDPORT.PLl 




017S 


FFC3 












! INITIALIZE TIMING 


CONTROLLER 9513 ! 


017A 


2101 


LD 


R1 ,#%FFFF 


! RESET DEVICE ! 


017C 


FFFF 








0175: 


3B16 


OUT 


TCMD, El 




0180 


FFD2 








0182 


2101 


LD 


»l,n?FEF 


! SET 16-BIT MODE ! 


0184 


FFEF 








0186 


3B16 


OUT 


TCMD ,R1 




0188 


EFD2 








018A 


2101 


LD 


R1 .#%FF5F 


! LOAD ALL REGS 1 


01SC 


FP5F 








018E 


3B16 


CUT 


TCMD.Rl 




0190 


FFD2 








0192 


2101 


LD 


R1 ,#%FFE8 


! DISABLE AUTO SEO ! 


0194 


FFF8 








0196 


3B16 


OUT 


TCMD ,R1 




0198 


FFD2 












! SYSTEM 


32-BIT CONTINUOUS CLOCF ! 


019A 


2101 


LD 


R1 ,#%FF01 


1 LD 'CM" CNTR GRPl ! 


019C 


FF01 








019E 


3B16 


OUT 


TCMD.Rl 




01A0 


FFD2 








01A2 


2101 


LD 


R1 ,#%0C29 


! CNTR MODE VALUE ! 


01A4 


0C29 








01A6 


3B16 


OUT 


TDTA.Rl 




01 A8 


FFD0 








01 AA 


2101 


LD 


R1,#%FF02 


! LD 'CM' CNTR GRP2 ! 


01AC 


FF02 








01AE 


3B16 


OUT 


TCMD.Rl 




01B0 


FFB2 








01B2 


2101 


LD 


?.l .#%0029 


! CNTR MODE VALUE ! 


0134 


0029 








0136 


3B16 


OUT 


TDTA.Rl 




01B8 


FFD0 












? QUANTUM 


COUNT-DOWN TIMER ! 


eiEA 


2101 


LD 


Rl,nFF05 


! LD 'CM' CNTR GRP5 ! 
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01BC 


FF05 










013E 


3B16 


OUT 


TC^D ,R1 






01C0 


FFD2 










01C2 


2101 


LD 


?.l ,#%0C02 


1 


CNTP. MODE VALUE ! 


01C4 


0C02 










01C6 


3B16 


OUT 


TDTA ,R1 






01C8 


FFD0 










01CA 


2101 


LD 


R1 ,#%FF0D 


f 


LD 'LOAD' GRP5 ! 


01CC 


FF0D 










01CE 


3E16 


OUT 


TCMD.Rl 






01 D0 


FFD2 










01D2 


2101 


LD 


R1 ,#'^0005 


f 


LD VALUE ! 


01M 


0005 










01D6 


3B16 


OUT 


TDTA ,R1 






01D8 


FFD0 














f HARDWARE 


PRE-EMPT MECHANISM ! 


01 DA 


2101 


LD 


^1 ,#%FF04 




! LOAD 'CM' GRP4 ! 


01DC 


FF04 










01DD 


3E16 


OUT 


TCMD.Rl 






01E0 


FFD2 










01E2 


2101 


LD 


R1 ,#%0C02 




! LOAD CM ! 


01E4: 


0C02 










01E6 


3B16 


OUT 


TDTA.Rl 






01E8 


FFD0 










01EA 


2101 


LD 


FI ,#%FF0C 




! LOAD 'LOAD' GRP4 ! 


01EC 


FF0C 










01EE 


3B16 


OUT 


TCMD.Rl 






01E0 


FFD2 










01E2 


2101 


LD 


R1 .#%0005 




! LOAD REG ! 


eiF4 


0005 










01E6 


3B16 


OUT 


TDTA. PI 






01F8 


FFD0 










01FA 


2101 


LD 


R1 .#%FF43 


j 


LD GEN CNTR GRP1&2 


01FC 


FF43 










01FE 


3316 


OUT 


TCMD.Rl 






0200 


FFD2 










0202 


2101 


LD 


R1 .#%FF23 


! 


APM REAL TIME CLX ( 


0204 


FF23 










0206 


3B16 


OUT 


TCMD.Rl 






0208 


FED 2 










020A 


7C05 


El 


VI 







14:7 



f 5jc 3{c 5;c:;c 5{: sjcsit a;s ajc jJcjJj i|s a^cajc a^s ajca;? s^t :{<5{c ajc >j:a;ca{s ajt aj: ajs aii:{< 



COCRPERATING PROCESSOR STAGE - 

- PROPER * 

* TEST LOCK; ROUTINE TO GAIN ACCESS * 

* “TO CONFIG_TABLE. * 

yu 

* REG USE: INPUT R7 = LOW GLOBAL ^EM - 



020C 7678 
020E 0008 



ztc s!i ^ ^ ^ ^ ^ '*• *** 5*^ ^ *** '•*' ^ sfij ^ ^*c '•** a!f 5if I 

^ 'I' -n' 'I' -»!* A' ^ -r* A» «'i»*r •«^'‘ '!» n* '■I* ■*!* *r* Ar* A* A^ *•' Ar* Ar A* I 



TEST LOCK: 

LDA * R6, TABLE LOCK(R7) ! LOCK ADR ! 



! MAIN LOCK TESTING LOOP ! 



DO 



0210 

0212 


3B26 

FFF9 


CUT 


0214 


0D86 


TSET 


0216 

0218 


3B26 

FFF8 


OUT 


021A 


ED03 


JR 



BUS_L0CK,R2 ! LOCK SYSTEM BUS ! 

GRS ! TEST TABLE LOCK ! 

3US_UNL0CK,R2 ! UNLOCK SYSTEM BUS ! 

PL,TBL_ACCESS ! GOT EXCLU, ACCESS f 



021C 1904 
021E 0001 
0220 E8F7 



! DELAY BEFORE NEXT ATTEMPT TO REDUCE ! 

! CYCLE STEALING ON BUS FROM BOOTLOAD_CPU ! 
MULT RR4,#1 ■ 



OD 



J aj:alsa;sa{s:{« 3(iajsi}ca‘^a;s3;::^c3jca;ta;ca}:a}ea;c3!ca;;a;sajca;ca!?a{ia;sa|t;;ca}ca;sa;s:;ia;:a;ca{caj5:5:a;ca;::}c 

* TBL_ACCESS: ROUTINE TO DETERMINE * 

* BOOTLOAD_CPU AND MFMBER_CPU 'S . * 

* 

TEL ACCESS: 



0222 


7673 


LDA 


R3 ,CPU_CNT(R7) 


! TABLE 


LOCKED ! 


0224 


000 A 










0226 


2134 


LD 


R4.0R3 ! 


GET LOG 


CPU NO. ! 


0228 


0304 


CP 


R4,#0 ! 


IS CPU 


FIRST? ! 


022 A 


0000 










022C 


E603 


JR 


Z,GO BOOTCPU 


f YES ! 




022S 


76C1 


LDA 


R1 ,MEM_CPU(R12) 






0230 


0000=^' 










0232 


lEia 


JP 


0R1 










GO BOOTCPU: 








0234 


76C1 


LDA 


R1 ,300TL0AD_CPU(R12) 




0236 


0000* 
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0233 

023A 



1118 JP 0R1 

END INITL 
END B0CTL0«D1 
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2. B00TL0AP2 MODULE 



e^ec'isM 
OC OBJ 



.e2 

CODE STMT SOURCE STATEMENT 



1 E00TL0AD2 MODULE 



iLISTOM $TTY 




CONSTANT 


RXH : = 


2 


TXR : = 


0 


PAR : = 


7 


PORTAD ;= 


%FFD9 


POPTBD := 


%FFE1 


PORTAC 


%FFDB 


PORTBC := 


%F?E3 


IDPOHT := 


%FFCB 


ICPCRT := 


%FFC9 


ROM DISABLE 


:= %FFF0 


TCMD := % 


FFD2 


TDTA := % 


FFD0 


BUS LOCK :=% 


FFF9 


BUS'UNLOCK : 


=%FFF8 


VINTR := 


%( 2)0001000000000000 


VISIT : = 


12 


ESCAPE := 


%1B 


BS 


%08 


LINDEL := 


%7F 


CR : = 


%0D 


LF : = 


%0A 


TXOFCH := 


%13 


TXONCH :=- 


%11 


INSIZ := 


128 ! INTBUF SIZ 


OUTSIZ := 


128 ! OUTBUF SIZ 


RBSIZ : = 


256 ! RING BUFFE: 


! BIT POSITIONS 


IN MONITOR FLAG WORD ! 


TRPMDE := 


0 


ISTOP := 


1 


OSTOP 


2 


SNDMDE := 


3 


LDMDE := 


4 


ESC : = 


5 


TXMSK := 


%6 



CPU := 8 
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L-j 



0080 

0100 

P200 

0300 

0302 

0304 

0306 

0308 

030 A 

030C 

030E 

0310 

0312 

0314 



TYPE 

‘message array [3 WORD] 
MEM_A?.RAY ARRAY [32 WORD] 
SWITCH ARRAY [2 WORD] 
CPU_ENTRY RECORD [ 

SIGNAL WORD 



CPU_ID 

MSG_3LK 

MEM_MAP 

I D_ ARRAY 
ENTRY ARRAY 



WORD 
MESSAGE 
MEM_ ARRAY] 

ARRAY [MAX_CPU WORD] 

ARRAY [MAX_CPU CPU_ENTRYl 



INTERN »L 

^SECTION TABLE1_DATA 
$A3S 0 



CONTIG TABLE RECORD [ 

RW PATTERN WORD 



CPU_NUM 
NORM_RW_PAT 
NORM_CPU CNT 
TABLE LOCK 
CPU_CNT 
CPU LIST 



WORD 

WORD 

WORD 

WORD 

WORD 

ENTRY ARRAY] 



INTERN &L 

$SECTION DATA_DEC 
$APS 0 



INT3UE 


ARRAY 


[123 


BYTE] 


0UT3UE 


ARRAY 


[128 


BYTE] 


RNG3UF 


ARRAY 


[256 


BYTE] 


MCZBUF 


ARRAY 


[256 


BYTE] 


B UP ADR 


WORD 






BUESIZ 


WORD 






I NTPTR 


WORD 






OUTPTR 


WORD 






NXTPTR 


WORD 






GETODT 


WORD 






MCZPUT 


WORD 






MCZGST 


WORD 






MEL AGS 


WORD 






RETRY 


WORD 






ADR STR 


WORD 
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INTERN 'L 

$SECTION PSA_DATA 
$ARS 0 

PSA RECORD [ 

DATA_AREA 
CODE_AREA 
UNIMP INST 
PRIV_INST 
SYSTEM_CALL 
SEG_TRA? 
NMI_INT 
NVI_INT 
VEC_FCW 
VSC PC 
1 ■ 



WORD 

WORD 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

Switch 

WORD 

ARRAY [200 



$SECTION 
EXTERNAL 
NMI 

GETLNS 
SNDCHR 
SNDMSG 
MCZHND 
CONINT 
GET3UF 
CUIT 
LOAD_FILE 
PHYS ID 



B00T2_PE0C 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PFOCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
LABEL 



WORD] 
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0000 



! 


U- *1- 

'i' *>' 


BOCTLOAD_CPU START 




GLOBAL 








RTN 


LABEL 




EROR 




Li^BEL 




N12M 


CPU 


LABEL 




3C0TLCAE 


CPU PROCEDURE 




T >!c5:c:;« 


«A* «V 

^ *ir 


:;c : Jc s|i >{: ?;« ?;o;s :{: :*< 5jc 5}c :Jc 5;c >}o:s s;s 5 ;: 3}: 3}c :}c 3;: :;s 5^ 5jc X? 


•. 1 ^ 

'T* 


BOOTLOAD CPU: CPU ASSUM3S ROLE AS 








INITIALIZATION COORDINATOR. 


'r 






CPU DETERMINES NUMBER OE CPU 




•A» 

't* 




IN SYSTEM AND INITIALIZES THE 




'X' 




CONFIG TABLE ACCORDINGLY. IT 


T» 


jV 




THEN IDENTIFIES ITSELF AND 




«*# 

*T- 




WAITS FOR MEMBER CPU'S TO 








IDENTIFY THEMSEL7ES5 'ND THEN 


'V 


5J« 




CONSOLIDATES CONFIG TABLE DATA 


'X*' 


-V 




INTO SYSTEM TABLE ‘MlN CONFIG 


.A# 


5;s 

«*# 




TBL). 




'T* 


REG 


USE: INPUT R5 = NUMBER CPU'S 


'f 

'r 






R6 = LOW LOC&L MEM 








R7 = LOW GLOBAL MEM 




<A. 

'I" 






3*t 



Jjt:}c>}c>;c:*c3;«5jc5;c5{c:{s5;c:4c^ s(ijJt;;c:^S5{c5;c5;« 5jc>;s:{c:Jc3{s5;j3fI:5}C5;cs;cj^^3}:5;:^:;2>;s>^j;s5;? I 

SNTRY 







! LOAD CPU 


CNT WITH NEXT LOG CPU NUMBER ! 


5*000 


4D75 


LD 


CPU_CNT(R7) ,^1 ! LOAD LOG_CPU 


0002 


000A 






0004 


0001 






0006 


4DE5 


LD 


ADR_STR(R14) ,#0 ! SAVE LCG_C?U 


0006 


0314 






000A 


0000 










! CLEAR CONFIG T'^BLE FOR CPU NUM ENTRIES ! 


000 c 


A153 


LD 


R3,R5 ! GET CPU COUNT ! 


000E 


8D28 


CLR 


R2 






DO 




0010 


0102 


ADD 


R2,#37 ! SIZE OF CPU ENTRY ! 


0012 


0025 






0014 


4B30 


DEC 


R3 


0016 


S601 


JR 


Z,NXT 


0018 


E8FB 


OD 








! CLEAR CONFIG TABLE FOR TOTAL CPU ENTRIES ! 






NXT: 




001A 


7673 


LDA 


R3,CPU_LIST(R7) ! BASE ADR ! 


5101C 


000 c 






001E 


0D35 


LB 


0R3,#0 


0020 


0000 
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! CLEAR TABLE ! 



0022 


A134 


LD 


R4 ,R3 


'"■024 


A941 


INC 


R4,#2 


0026 


PB31 


LDIR 


GR4,0R3,R2 


0028 


0240 










! COMPLETE 


OWN CONFIG T 


002A 


7673 


LDA 


R3 ,CPU_LIST 


002C 


000C 






002E 


61 C3 


LD 


R8 ,PHYS_ID( 


0030 


0000- 






0032 


6F38 


LD 


CPU_ID(R3) 


0034 


0002 






0036 


763D 


LDA 


F13,MEM_MAP 


003S 


000A 






003A 


DFIC 


CALR 


MAP_M EMORY 






! UNLOCK CONFIG TABLE ! 


003C 


7678 


LDA 


RS ,TA3LE_LC 


003E 


0008 






0040 


0D85 


LD 


0RS, #0 


0042 


0000 










! WAIT FOE 


ALL CPU'S TO 


3044 


7678 


LDA 


R8,C?U_CNT(; 


0046 


000A 






0043 


A 159 


LD 


R9 , R5 






DO 




004 A 


218D 


LD 


R13.9R8 


004C 


8B9D 


CP 


R13,R9 


004E 


E603 


JR 


Z.GOT SIG 


0050 


1904 


MULT 


RR4,#1 


3052 


3001 






0054 


F8FA 


OD 








GOT SIG: 




3056 


DF53 


CALR 


SIGNAL CPU 


0058 


E82A 


JR 


DECISION 



? LOG_CPU 0 ! 
! UNIQUE ID ! 



! ENTER MEM MAP ! 



! CLEA? LOCK ! 

IDENTIFY THEMSELVES ! 
R7) ! CPU_CNT ADR ! 

! GST TOTAL ?HTS_CPU ! 

! GET VALUE ! 

! CK FOR MATCH ! 

! DELAY ! 



! PROCEDE TO SECONDARY ! 
! STORAGE INTERFACING ! 



154 



7673 
005C 000C 
005E 6174 
0060 000A 
2062 6FE4 
0064 0314 
0066 8D2S 

0068 0102 
006A. 004A. 
006C AB40 
006E E601 
0070 E8EB 



MEf^BER_CPU START ! 

I 5{C5;c 5^ 5tc :<r s|i ^ -r 3*,s 5*; ?;s 5}c 5;t:;c 5^: :tc 

>1? ^ 

- MEM_C?U: IDENTIFIES ITSELF IN * 

CONFIG_TABLE AND ENTERS MSM_ - 

* MAP. WAITS FOR DIRECTOR_CPU - 

* TO SIGNAL TO CONTINUE, 






RFG USE: INPUT P.3 = BASE OF OWN 

ENTRY 



❖ 



«A« ao «JU «A> *.V <s<« •.>« WU «l« «IU % t* JU Oo ««.* ««« t 

^ ^ •r* 'I' 'M'- ^ ■••' "I* 'I* «t* 'I* ^ 'I' 'I* <»i«’ 'I' *Y* 'I' ^ 'I' •'r ^ O' o* *i' f 

MEM_C?U: 

H3.CPU LIST(R7) 



LDA. 

LD 

LD 

CLR 

DO 



DEC 

JR 



R4 ,CPU_CNT(R7) 
ADF_STT=(R14) ,R4 
R2 



! 3. ASS OF ENTRY ! 

! LOG_CPU NUMBER ! 

! SnE LOG CPU NO. 



ADD R2,#74 



P4 

Z.CONT 



! DETERMINE BASE OF ! 
* ENTRY ! 



OD 



CONT : 

0072 812A ADD 

0074 *1A3 LD 



R10,R2 ! COMPUTE BASS ADR ! 

R3.R10 ! SAVE BASE ADR ! 



0076 76C2 
0078 0000* 
007A 2123 
007C 6F38 
007E 0002 



ENTER UNIQUE ID IN TABLE ENTRY ! 

LDA R2,PHYS_ID(H12) 

LD R8.0R2 ! GET UNIQUE ID 1 

LD CPU ID(R3),R8 ! ENTER IN TABLE ! 



0080 763D 
0082 000A 
0084 DF41 



ENTER MEM_MA? IN TABLE ENTRY ! 

LDA R13,MEM_MAP(R3) ! MEM_MAP BASE ! 

CALR MAP MEMORY 



0086 7678 
0088 000 A 
008A 2189 
008C A990 
008E 2F89 



LOAD CPU CNT WITH NEXT L0G_CPU NUMBER ! 
LDA ~ R8.CPU CMT(R7) 



LD 


R9 ,GR8 


INC 


P9 


LD 


0RS,R9 



! CPU COUNT ! 

I ADD ONE, ! 

! AND PUT BACK ! 
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! UNLOCK C0NF_TA3LE FOR OTHER PROCESSORS ! 



0090 


7673 


LDA 


R8.TA3LE_L0CK(R7) 


"092 


0008 






0094 


0D85 


LD 


0F8,#0 ! CLEAR LOCK ! 


0096 


0000 










! WAIT FOR 


SIGN'LL TO PROCEED WITH EOOTLOAD 


0098 


7638 


LDA 


R8 .SIGNAL ^R3) ! OWiN SIGNAL ADR 


009A 


0000 










DO 




009C 


2182 


LD 


P2.0R8 ! TEST SIGNAL '■ 


009E 


0302 


C? 


R2 ,#1 


00 A0 


0001 






00 A2 


S603 


JR 


Z, RESET SIG 


00A4 


1904 


MULT 


RR4,#1 ! DELAY ! 


70 a 6 


0001 






00A8 


F8F9 


OD 








RESET SIG: 




7 0 a A 


4D38 


CLR 


SIGN&L(R3) 


00AC 


0000 







Mi* «V WU wU %iU WU %IU ^JU M« WU WU M* V^ 

^ #1% <rj^ #1^ #1^ #1^ ?|-% ^1% r|% ^1% #1% ? j% ^1% ^1% 

3r 5tS 

« BOOTSTRAP LOADING FUCTION - 

^ '!' 

THIS SECTION CONTAINS NECESSARY * 

- SECONDARY STORAGE INTERFACING * 

* PRIMITIVES TO EFFECT A DOWNLOAD. * 



:Je 3^5 5ts:;::^:;;::{s 3^s;e:J::{c:{< :{c:{c5je:4::*c ?{::ica;s5;c5j: :;<?{« 3{ts;c:^s:5s55c :{«:}: :^i^c5S:5!s:{c:;c j 



I :{jXCs;«a{S3;S5;?X«3t^<^3{«54C5iCX«3ti3{C54<S!5 34«5r3l<5rn<3;S 3^5^«nC5}C:^«3^::jS5^C3^3^C^^5^^S^C5^C3^C5!c5}C 

* EOOTLOAD-MONITOR DECISION POINT * 

^ 5'^ 5'^ :}c 3>: s,*C3jc jIcs^s 5|s 5*s 5|: ?;< :,'s 5;< sjj >{i Jjt jJ: >Jc s^s 5 ;: sj; 3{s f 



DECISION : 



00 AS 


C82A 


LD3 


RL0,#'*' 


! PROMPT MIN M3C 
! INITIALIZATION 


0030 

0032 


76CA 

0000’!' 


LDA 


P10,SNDCHR(R12) 


0034 


1FA0 


CALL 0R10 

! SET RING3UFFEH OFFSET 


! OUTPUT PROMPT 
POINTERS ! 


0036 

0036 


4DF8 

030A 


CLR 


GETOUT (R14) 




003 A 
003C 


4DE8 

0308 


CLR 


NITPTR(R14) 
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00BE 7C05 



El VI 

! GLOBAL TABLE EOH CPU SYNCHRONIZATION; LOG_CPU ! 
! NUMBER DETERMINES BOCT_COORD I N ATOR IN GENERAL 
! CASE, BUT NOT USED WITH MCZ IMPLEMENTATION. ! 

! MAIN LOOP EOR BOOT COORD DETERMINATION ! 

DO 







! CHECK 


FOR CONSOLE INPUT ! 


O0C0 


61F0 


LD 


R0,GETOUT(R14) 


00C2 


030A 






00C4 


4BE0 


CP 


R0 .NXTPTR (R14) 


00C6 


0306 






00C6 


EE06 


JR 


NZ, RESPONSE ! RAVE REC CHP. ! 






! CHECK 


FOR BOOTLOAD SIGNAL ! 






LOP MOB; 




00CA 


6131 


LD 


R1 ,SIGNAL(R3) 


00CC 


0000 






00CE 


0B01 


CP 


Rl,^#%0001 ! CK FOR SIGNAL ! 


00D0 


0001 






00D2 


E62C 


JR 


Z,BGN_BOOT ! REC BOOTLOAD SIG 


00D4 


E8F5 


OD 








RESPONSE: 

1 DETERMINE 


INPUT CHAR RESPONSE ! 


00D6 


76CA 


LDA 


R10,GETBUF(R12) 


00D6 


0000’!' 




00 DA 


1FA0 


CALL 


0R10 


00DC 


2028 


LDB 


RL0,GR2 


00DE 


76CA 


LDA 


R10,SNDCHP(R12) 


00E0 


0000# 






00E2 


1FA0 


CALL 


0R10 ! ECHO TO CONSOLS ! 


00E4 


A10D 


LD 


R13.R0 ! SAVE CHAR ! 


00E6 


C80D 


LDB 


RL0,#CR 


00E8 


1FA0 


CALL 


GR10 ! SEND CR TO CONS ! 


00EA 


C80A 


LDB 


RL0,#LF 


00EC 


1FA0 


CALL 


0R10 ! SEND LINE FEED ! 






! INSURE MCZ SYSTEM IS INITIALIZED ! 


00EE 


3402 


LDAR 


R2,MCZ_MSG ! INIT MESSAGE ! 


00E0 


00F0 






00E2 


76CA 


LDA 


R10,SNDMSG(E12) 


00F4 


0000# 






00E6 


1FA0 


CALL 


GR10 ! SEND TO CONSOLE ! 


00E8 


4DE8 


CLR 


GET0UT(R14) 


00EA 


030A 






00EC 


4DE8 


CLR 


NXTPTR(R14) 


00FE 


0308 






0100 


76CA 


LDA 


R10,OUIT(R12) 
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0102 

0104 



0000 = 
1EA8 



J? 



9R10 



! E?JT?R transparent ^^ODE ! 



! RETURN POINT FORM TRANSPARENT ^ODE ! 
NMI RTN: 







! DETERMINE 


COMMAND BRANCH ! 


0106 


3402 


LDAR 


R2 ,LOAD_MSG 


0108 


0086 






010A 


76CA 


LDA 


R10,SNDMSG(R12) 


010C 


0000* 






010F 


1FA0 


C 4LL 


GR10 


0110 


A1D2 


LD 


R2,R13 


0112 


0A0A 


CP3 


RL2,#%53 ! CK FOR SASS BOOTSTRAP 


0114 


5353 






0116 


EE03 


JH 


NZ, OTHER 


0118 


3400 


LDAR 


R13,B00T_C00RD 


011 i 


001S 






011C 


E802 


JR 


SST_PTRS 






OTHER: 




011E 


340D 


LDAR 


R13, MONITOR ! START OF DMOMITOR ! 


0120 


007C 










SET_PTRS : 




0122 


61E1 


LD 


R1 ,NXTPTR(R14) ! RESET RNIGBUF ! 


0124 


0308 






0126 


6FE1 


LD 


GETOUT (R14) ,R1 ! OFFSET POINTERS ! 


0128 


030A 






012A 


1SD8 


JP 


0R13 ! BRANCH ! 






! NON-BOOTLOAD CPU RESPONSE TO SIGNAL ! 






BGN BOOT: 








! PASS LOG 


CPU OF CPU INTO BOOTSTRAP ! 


012C 


61EC 


LD 


F.12, ADR_STR(R14) 


012E 


0314 






0130 


4D38 


CLR 


SIGNAL(R3) 


0132 


0000 






0134 


6131 


LD 


R1 ,MSG_BLK(R3) 


0136 


0004 






0138 


1S18 


JP 


0R1 ! TRANSFER TO BOOTSTRAP ! 
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ASSUME BCOTLO.AD COORDINATOR ROLE 

:ic 2 ie ^ j!r sic :is sic ais aic s!c sic ils iic si: :ic sic i!c * sfc* sic * 5*- tri-sic s!c * sic sis sdc sir sic sfe 







»Y* ^ 'r* ^ «Tr ^ ^ 3ir» *>t 


c s|c s|? sic i[: ;*c sjc sjcsj? sjc sft sic slcsjc s|c y,c s'^s}? s{c sjcslc s^c sjc s{c s;c sic s;c J 






BOOT COORD: 




013 A 


6E E3 


LD 


PETRY(R14) ,R3 ! SAVE ENTRY BASE ! 


013C 


0312 






013E 


3404 


LDAR 


R4, BOOTLOAD I LOAD FILENAME ! 


0140 


0090 






0142 


A 173 


LD 


’'3,R7 ! GLOBAL MEMORY ! 


0144 


0103 


ADD 


R3,#%0200 I BCOTLOAD ADR ! 


0146 


0200 










! LOAD EOOTLOAD PROORAM ! 


0148 


76CA 


LDA 


R10 ,L0AD_FILE(R12) 


014A 


p-000».t 






014C 


1FA0 


CALL 


0F10 


014E 


A174 


LD 


R4.R7 ! GLOBAL MEMORY ! 


0150 


«14B 


LD 


E11.R4 ! Si^VE BASE ADR ! 


0152 


010B 


ADD 


Rll,#%0200 f EOOTLOAD ADR ! 


0154 


0200 






0156 


210C 


LD 


R12,#0 


0158 


0000 






015A 


A151 


LD 


R1.R5 ! NUMBER CE CPU'S ! 






! STORE BOOTLOAD ADDRESS IN MSG BLK OF ALL CPU'S ! 






DO 




015C 


6E43 


LD 


MSG_BLK(R4) ,R3 ! PLACE ADDRESS ! 


015E 


0004 






0160 


AB10 


DEC 


R1 


0162 


S603 


JR 


Z,SIG NXT 


0164 


0104 


ADD 


P4,#74 ! NEXT LOG_CPU NUMBER ! 


0166 


004A 






0168 


E8E9 


OD 








SIG NXT: 

! SIGNAL ALL 


CPU'S TO TRANSEER CONTROL ! 


016A 


61EC 


LD 


R12,ADR_STR(R14) ! GET OWN LOG_C?U NO. ! 


016C 


0314 






016E 


DFDE 


CALF. 


SIGNAL CPU 


0170 


617A 


LD 


R10 ,CPU_LIST(R7) 


0172 


000C 






0174 


4DA5 


LD 


SIGNAL(R10) ,#1 ! BOOTLOAD CPU SIGNAL ! 


0176 


0000 






0178 


0001 






017A 


61E3 


LD 


R3,RETRY(R14) ! OWN ENTRY BASE ! 


017C 


0312 






017E 


4D38 


CLR 


SIGNAL(R3) 


0180 


0000 






0182 


1F.B8 


JP 


0R11 ! TRANSEER SELF ! 
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EEOR: 




0184 


3402 


LDAR 


R2 ,ERR_MSG 


0186 


0074 






0188 


76CA 




R10,SND^SG(R12) 


018A 


0000- 






013C 


1F»0 


CALL 


0R10 


018? 


?88F 


JR 


DECISION 







I a{c3;c3}C55«?i:5{«5jc:(s>}:5:t 


END BOOTLO^D 






LOAD MSG: 




0190 


0D 


B7AL 


%0D 


0191 


4C 


BVAL 


'1' 


0192 


4F41 


WVAL 


'Ok' 


0194 


4449 


VVAL 


'T)l' 


0196 


4F4? 


WVAL 


'NG' 


0198 


2E2E 


WVAL 


/ * * ✓ 


01 9A 


2E2E 


WVAL 


• • 


019C 


2E 


BVAL 




019D 


0D 


BVAL 


%0D 






MONITOR: 




019F 


3404 


LDAP. 


R4.DM0NIT0H ! LOAD FILE NAME ! 


01A0 


004C 






01A2 


2103 


LD 


R3,#%0000 


01 A4 


0000 






01A6 


76CA 


LDA 


R10 ,L0AD_FILEfR12) 


01A8 


0000- 






01 AA 


1FA0 


CALL 


0R10 


01AC 


2103 


LD 


F:3,#%0000 


01AF 


0 000 






01B0 


F84C 


JR 


DISABLE_PROM ! TRANSFER CONTROL 


01B2 




END EOOTLOAD CPU 
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?1P2 



SIGNAL_CPU PPOCEDURE 

V^ *i^ %v 

>1% ^% ^1% #1^ «*|% #1% ^1% ^|S #1% /|% #|4 <|S #1% M|% ^|n 

%w ^ 

^r 

=!' SI:JNAL_CPU: PLACES SICMAL (#1) IN * 

- SIGNAL BLOCK FOR EACH CPU EN- * 

« TFY IN CONFIG_TABLE. * 

*•< «i* 

•t* 

»*# «V« «l# «<« •/« «l« «U mX» «l* «Wp «<« <J^ «•« ^W «to -U> aJ^ *A<> *,i« «i« «l# «l« %1> ««<r aJ> «i> a>i» «l# «># »<« •)•« aA* ^U «l« | 

lf|% >1% #|« 4^% ^1% ^1% ^1% 4«|H ^1^ ^1^ ^1% ^1% ^1% ^1% <1^ I 

ENTRY 

! SIGNAL ALL CPU TO DOWN-LOAD ! 



! L0G_CPU 1 ENTRY ! 
! TOTAL NO. CPU ! 



0132 


767D 


LDA 


R13.CPU, 


01B4 


000C 






01B6 


010D 


ADD 


R13,#74 


0138 


004A 






01BA 


A 154 


LD 


R4,R5 


01BC 


AB40 


DEC 


R4 


01BE 


E608 


JR 


Z,ALL_S 






DO 




01C0 


4DD5 


LD 


SIGNAL( 


01C2 


0000 






01C4 


0001 






01C6 


AB40 


DEC 


R4 


01 CB 


E603 


JR 


Z.ALL S 


01CA 


010D 


ADD 


R13,#74 


01CC 


004A 






01CE 


E8F8 


OD 








ALL SIG: 




01D0 


9E08 


RET 




01D2 




END SIGNAL_ 


CPU 






BOOTLOPD: 




01D2 


0F 


BVAL 


%0F 


01D3 


4C 


BVAL 


'1' 


01D4 


4F41 


WVAL 


'OA' 


01D6 


4420 


WVAL 


'D ' 


01DS 


424F 


WVAL 


'BC' 


01DA 


4F54 


WVAL 


'OT' 


01DC 


5354 


WVAL 


'ST' 


01DE 


5241 


WVAL 


'RA' 


01E0 


5020 


WVAL 


'P ' 






MCZ MSG: 




01E2 


0A 


BVAL 


%0A 


01E3 


52 


BVAL 


'R' 


01E4 


4553 


WVAL 


'ES ' 


01E6 


4554 


WVAL 


'ET' 


01E8 


204D 


WVSL 


' M' 



SIGNAL(R13) ,#1 I LOAD SIGNAL ! 



! NEXT LOG CPU ADR ! 
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01S' 


435^ 


WTAL 


'CZ' 


01EC 


0P 


BVAL 


%0D 




20 


3VAL 








DMONITCR 


• 


01EE 


0D 


BVAL 


%0D 


01EF 


4C 


BVAL 


'L' 


01F0 


4F41 


VVAL 


'Ok' 


01F2 


4420 


VVAL 


'D ' 


01F4 


4D4F 


WV AL 


'VO' 


01F6 


4E49 


WVAL 


'HI' 


01F8 


544F 


WVAL 


'TO' 


FIFA 


5220 


WVAL 


'F ' 






ERR MSG: 




01FC 


06 


BVAL 


%06 


01FD 


45 


BVAL 


'E' 


01FE 


5252 


WVAL 


'RR' 


0200 


4F52 


WVAL 


'OR' 


0202 


0D 


BVAL 


%0D 


0203 


20 


BVAL 




0204 




MAP MEMORY PROCEDURE 








5|; 5{s 5t: ?^c 5^ 5j: ^ :Jc >;c 5^ >;5 5^s sjc :J5 3{< 5}c 3}e >;e 






MAP_ 


MEMORY: MAPS CPU MEMORY ACCESS * 








BY DOMAIN. AS TO LOCAL (l), - 








GLOBAL (2), DUAL USE (3), - 






❖ 


NON USE (4), NON ACCESS (5). * 

❖ 






HEG 


USE: INPUT R13 = ADP MEM_MAP 














ENTRY 




0204 


Ain 


LD 


R1.R13 ! SAVE BASE ADR ! 


0206 


2102 


LD 


E2,#%55AA ! P/W PATTERN ! 


0208 


55AA 






020A 


8D48 


CLR 


R4 


020C 


2109 


LD 


R9,#%FS00 ! END ADR ! 


020E 


F800 






0210 


2110 


LD 


R0.8R1 f 1ST MAP BLK ! 


0212 


BFFF 


CALR 


SYS_MAP ! map SYSTEM MODE ! 


0214 


9E08 


RET 




0216 




END MAP 


MEMORY 



162 



0216 



SYS_M4P PROCEDURE 

^ S»J ^ ^ ^ '•» 5*-> %«• V» •*•' **1? •'•• •.*• VU O* «t* .U ^ J.» »«» »U i.^- UU 

•T* ‘%'n* 'j' ^ *T* ^ <V* *1* ^ ^ ^ 7,% «l« ^ «l« «l% ^ ^ ^ «1« «l% 

« ❖ 

* SYS_M".P: MAPS MEMORY ACCESS IM THE - 
- SYSTEM MODE INTO C0NEI0_TA3LE - 

FOR CPU. - 



« PEG USE: INPUT HI = BASE MAP BLK 
* R2 = R/'i PATTERN 

« P4 = ST.iRT MEM 

R9 = END ADR 









ENTRY 

DO 



0216 


6148 


LD 


P8,RW PATTERN(R4) ! CK FOR R/W 


021s 


0000 








021 A 


SE2S 


CP 


R8.R2 




021c 


EE0D 


JR 


NZ.3AD MEM 


! NO R/W/ ! 


021s 


6148 


LD 


Re.CPU NUM(R4) ! GET CPU CNT ! 


0220 


0002 








0222 


0P08 


CP 


R8,#%0001 ! 


CK FOR LOCAL ! 


0224 


0001 








0226 


EE02 


JR 


MZ, GLOBE CK 




^223 


C001 


LD3 


RH0,*#%01 ! 


RECORD LOCAL ! 


322A 


E807 


JR 


CONTINUE 








GLOBE CK: 






022c 


3B53 


CP" 


P8.R5 ! 


CK FOR GLOBAL ! 


022E 


EE02 


JR 


NZ,NO USE ! 


KCPU NUM<R5 ! 


0230 


C002 


LDB 


HH0 ,#%02 


! RECORD GLOBAL ’ 


0232 


E803 


JR 


CONTINUE 








NO USE; 






0234 


C004 


LDB 


RH0,#%04 


! RECORD NON_USE ! 


0236 


E801 


JR 


CONTINUE 








BAD MEM: 






0238 


C005 


LDB 


RH0 ,#%05 


! RECORD NON_ACCESS ! 






CONTINUE : 






023A 


2F10 


LD 


GRl ,R0 


! STORE MAP BLOCK ! 


023C 


A 911 


INC 


Rl,#2 


! NEXT MAP BLK ! 


023E 


8B49 


CP 


R9 . R4 




0240 


9E06. 


RET 


Z 


! FINISHED ! 


0242 


8D0S 


CLR 


R0 




0244 


0104 


ADD 


R4,#%0800 


! NEXT MEM ADR ! 


0246 


08'^0 








0248 


E8E6 


OD 
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024.4 




END SYS_M4P 




024A 




DISABLE_PROM PROCEDURE 








• yu m}* V'* yu«v 

f ^1* •S' >1' *1' 'I' »j* ^1* •)' 


9,*^ 

-#1^ ^4^ ^1^ ^1% ^1^ «»l% 








>r 






* DISABLE PROM; REPOSITIONS CODE FOR * 
PROM DISABLING AND TRANSFER * 






OF CONTROL FLOW. ’i= 






* REG USE: INPUT R3 = 


TRANS ADR ’!'• 






sit 








UU 

^1% #1% #1^ #1% 

ENTRY 


»J# %>* '*• V* 'V '*#' ^ >V V' V' '4* f 

•^' ' 1 ' •«' 'I** •■(' ^ 'r '»'• »r» '** '■i'* 1 


02A.A 


A161 


LD R1.P6 


! MOVE LOCATION ! 


024C 


3404 


LDAR R4,3GN_C0DE 




024E 


0014 






0250 


2102 


LD R2,#3 




0252 


0003 


! ACTUAL CODE TRANSFER ! 








DO 




0254 


21 4D 


LD R13.0R4 


! GET INSTRUCTION 


0256 


2F1D 


LD 0R1,R13 


! PUT AT NEW LOC ! 


0258 


AB20 


DEC R2 




025A 


E603 


JR Z,DO CODS 




025C 


A911 


INC Rl,#2 




025E 


4941 


INC R4,#2 




0260 


ESF9 


OD 





DO CCD?!: 



0262 


1E68 


JP 


G?6 ! TRANSFER CONTROL 






BGN CODE: 




0264 


3B16 


OUT 


R0M_DISABLE,R1 


0266 


FFF0 






0268 


1E38 


JP 


0R3 


026A 




END DISABLE, 


PROM 






END B00TL0AD2 
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3. SUPPORT! (MODULE 



Z800OASM 
LOG OBJ 



.02 

CCDS STMT SOURCE STATEMENT 



1 SUPPORT! MODULE 
$LISTON $TTY 



^ •V %•# 

^1** #j^ ^1% ^1^ #1^ 0^^ 0^ 0^ #’|^ #1% 0^> 0^ 0^ 0^ ^1% 0^ <1% 



'-i' SUPPORT! MODULE; MODULE ONE EOR " 

- SECONDARY STORAGE PRIMITIVE * 

* EUNCTIONS SUPPORT. STRICITLY - 

HARDWARE dependent; SHOULD * 

- MEET STORAGE DEVICE REQUIRE- - 

'•i' MINTS FOE INTERFACING. - 

0^% 01^ 



•^0 *^0 %,^0 ^0 %A0 %$0 ^0 ^0 ^^0 ^0 ^^0 *^0 %A* %V ^0 ^J0 %^0 *^0 %t# WU % V fl 

#1^ 0fm 0^% 0^% 0^ ^|%#|% 0^% 0^ 0^% 0^ 0^ 0^ 0^^ 0^ ^1% 0^ 0f^ 0^<^ #1^ 0^% >1% r|% #1% I 



CONSTANT 








RXR 


— 


2 




TXR 


= 


0 




PAR 


= 


7 




PORTAD 


= 


%F?D9 




PORTED 


= 


%FFE! 




PORTAC 


= 


%EFDB 




PORTBC 


= 


%FEE3 




IDPCRT 1 


► — » 
1 ”* 


%FFC3 




ICPOfiT 1 


t 


%FFC9 




TCMD := 


%FED2 




TDTA ;= 




%FFD0 




BUS LOCK 


= 


%EFF9 




BUS^UNLOC? 


' 


:=%FFF8 




VINTR 


= 


%(2)000!000000000000 


VIBIT 


= 


!2 




ESCAPE 


- 


%!E 




BS 


= 


%09 




LINDEL 


= 


%7F 




CR 


= 


%0D 




LE 


= 


%0A 




TXOFCH 


= 


%!3 




TXONCH 


= 


%!! 




INSIZ 


= 


!29 


! INT3UF SIZE 


OUTSIZ 


= 


!28 


! OUTBUF SIZE 


RBSIZ 


= 


256 


! RING BUFFER 



! 

; 

SIZE ! 



!65 



0000 

0080 

0100 

0200 

0300 

0302 



0304 

0306 



0308 

030A 

030C 

030E 

0310 

0312 
0314 
0316 
0318 
031 A 

031C 



! BIT POSITIONS IN P^ONITOR FLAG WORD 



THP-^DE 




= 0 




ISTCP 




= 1 




OSTOP 




= 2 




SNDMDE 




= 3 




LDMDE 




= 4 




ESC 




= 5 




TXMSK 




= %6 




COMDS 




:= 12 




EXTERNAL 


GETNXT 


PROCEDURE 


EXTERNAL 


GET ADR 


PROCEDURE 


EXTERNAL 


GMCZAD 


PROCEDURE 


EXTE^’NAL 


SNDMCZ 


PROCEDURE 


EXTERNAL 


GETEU? 


PROCEDURE 


EXTERNAL 


SNDCHR 


PROCEDURE 


EXTERNAL 


Eli OR 


LABEL 


EXTERNAL 


SKPBLK 


PROCEDURE 


EXTERNAL 


CONVERT 


PROCEDURE 


EXTERN «L 


GETCHR 


PROCEDURE 


INTERNAL 








^SECTION 


DATA DEC 




$ABS 0 









INTBUF 


ARRAY 


[128 


BYTE] 


OUTBUF 


ARRAY 


[12S 


BYTE] 


RNGBUF 


ARRAY 


[256 


BYTE] 


MCZBUF 


ARRAY 


[256 


BYTE] 


BUFADR 


WORD 






BUFSIZ 


WORD 






I NTPTR 


WORD 






OUTPTR 


WORD 






UNIMP 


WORD 






BRKCNT 


WORD 






NXTPTR 


WORD 






GFTOUT 


WORD 






MCZPUT 


WORD 






MCZGET 


WORD 






BPKSTR 


WORD 






BRKADR 


WORD 






TMPSP 


WORD 






TMPFCW 


WORD 






MFLAGS 


WORD 
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! USER REGISTER STORAGE ! 



C31F 


H0 


WORD 


0320 


R1 


WORD 


0322 


R2" 


WORD 


0324 


P.3 


WORD 


0326 


R4 


WORD 


0328 


R5 


WORD 


032A 


R6 


WORD 


032G 


R7 


WORD 


032E 


R9 


WORD 


0330 


R9 


WORD 


0332 


R10 


WORD 


0334 


Rll 


WORD 


0336 


R12 


WO RD 


0338 


R13' 


WORD 


033A 


R14 


WORD 


033G 


P15 


WORD 


033E 


RPG 


WORD 


0340 


RFGl 


WORD 


0342 


RETRY 


WORD 



GLOBAL 

^SECTION SUPPORTl PROG 
$REL 0 



GLOBAL 

0000 GETLNE PROCEBURE 

J s;;:;c:;c?;s:!s:^c5{ct;«?;ss;is;:5;c5:«?;t3i5 5js5;c5j:jjt:5c5ls5;<5ji5;;:;:jl:5;; 

* :;c 

- GETLNE: REG ONE LINE INPUT FROM - 

* GONS (P0RT2), UP TO 80-GHR 

* MAX, STORE IN INTBUE PLUS - 

* GR, AND SGHO BAGK TO GONS. * 

* * 



* REG USE: RETURN RL0= 1ST GHH IN BUF- 
=!' AND Z IF GHR = GR - 






ENTRY 

0000 76F2 LDA 

0002 0000 
0004 2101 LD 

0006 0080 
0008 6FF2 LD 

000A 0304 

000G DFF8 GALR 

000E 34GA LDA 



R2, INTBUF(R14) ! GET BASE INTBUF ! 
R1,#INSIZ ! GET MAX SIZE ! 
INTPTR(R14) ,R2 

GONSOL ! FILL LINE IN INTBUF! 

P10,R12(#SKP3LK) 
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C^010 


011C ' 






0012 


1FA0 


CALL 


OR 10 


0014 


6BE0 


DEC 


INTPTH(E14) ! RETURN TO START 


0016 


0304 






0013 


0A08 


C?3 


RL0,^*CR 


001A 


0D0D 






001C 


9E08 


RET 


! GOT 1ST CHR = CR ! 


001S 




END GETLNE 






GLOBAL 




001E 




CONSOL 


PROCEDURE 






♦ 


> ^ ^ ^ wu wy yy ^ yu ^ yy 

• #1^ #n #p ^p <rp i^p #p ^p ^ #p ^p ^p #p #p 

«jy 






* CONSOL: STORE CONS INPUT LINS IN * 








BUFFER ADDRESS PROVIDED, * 








PLACE CR AT END OF LINS, - 






-Ai 


AND PROVIDE DELETE CHAR - 








^ND DELETE LINE EDIT FUNC. * 






REG 


USE: INPUT R1 = SIZE OF BUFFER - 






-v 


R2 = BUFFER ADR - 






-nr 


RETURN R1 = ^ OF EEC CHR * 






3b 


AND Z IF BUF LIMIT - 






3jj3|S3!c:{t5;t:;:3;s;;s3{C3;:3|s?;t5;i s;c5jc y,: s;: 3^3;? 3^5 3|S5;« iltsj? 5j;3;c3{s;;t sicsji 3^ 5{c 5|;5;c 1 






ENTRY 




001E 


6FE2 


LD 


BUFADR(R14) ,R2 ! SAVE BOTH BUF 


0020 


0300 






0022 


6FE1 


LD 


BUFSIZ (R14) ,R1 ! AND BUF SIZE I 


0024 


0302 










HDNG : 




0026 


61E2 


LD 


R2,BUFADR(R14) 


0028 


0300 






002 A 


8E18 


CLR 


R1 






REDLOP: 




002C 


DFCl 


CALR 


CONRD I GET CHAR AND ECHO ! 


002E 


0A08 


CP3 


RL0,#%61 ! convert TO UPPER CASE! 


0030 


6161 






0032 


E704 


JR 


C, UPCASE ! NOT LOWER CASE ! 


0034 


0A08 


CP3 


RL0,#%73 


0036 


7E7B 






0033 


EF01 


JR 


NC, UPCASE ! YES LOWER CASE ! 


003 A 


A285 


RES3 


RL0,#5 ! CONVERT TO UPCASE ! 






UPCASE: 




003C 


2S28 


LD3 


0R2,RL0 






! PERFORM EDIT FUNCTIONS ON INPUT ! 


003E 


0A08 


CP3 


RL0,#BS :CK FOR DEL CHR ! 


0040 


0803 






0042 


EEll 


JR 


NZ,CONTCK ! NO, CONTINUE CK ! 



les 



(7 044 


ft.320 


DEC 


?.2,#1 ! 


YES. BACKSPACE ! 


0046 


AB10 


DEC 


R1 




0048 


4BE2 


CP 


P.2 ,3UFADR(R14) 


! NOT TOG FAR ! 


004A 


0300 








004C 


E707 


JR 


C,DO OVR 




004E 


C820 


LDB 


RL0,#' ' 




0050 


34CA 


LDA 


R10,F12(#SNDCHF 




0052 


01DE' 








0054 


IF ft 0 


CALL 


OR10 ! 


BLANK CUT BAD CHR 


0056 


C808 


LDB 


r'L0,#BS 




0058 


1FA0 


CALL 


0R10 




005A 


E8E8 


JR 


REDLOP ! CONTINUE 1 






DO OVR: 






005C 


C82A 


LDB 


RL0,# 




005E 


34CA 


LDA 


R10,R12(SNDCHR) 




0060 


01DS 








0062 


1FA0 


CALL 


GR10 I 


SEND PROMPT I 


0064 


E8E0 


JR 


HDNG ! 


START AGAIN ! 






CONTCK: 






0066 


0A08 


CPB 


RL0,#LINDEL ! 


CK FOR LINE DEL ! 


0068 


7?7F 








006A 


E609 


JR 


Z, DELINE ! 


YES ! 


006C 


A920 


I^JC 


R2,#l 




006E 


ft 910 


IN'C 


El 




0070 


0A08 


CPB 


RL0,#CR 1 


CK FOR CR ! 


0072 


0D0D 








0074 


E60E 


JR 


Z, ADDLE ! 


YES, ADD LF CHR ! 


0076 


4BE1 


CP 


R1 ,BUESIZfR14) 


f SIZE CK ! 


0078 


0302 








007ft 


EED8 


JR 


NZ, REDLOP ! 


CK, GET NEXT CER ! 


007C 


9E06 


RET 


Z ! 


TOO LiRGE, ERROR I 






DELINE: 






007E 


C85E 


LDB 


RL0,#%5E 




0080 


34 C A 


LDA 


R10 ,R12(SNDCHR) 


! SND LINE DEL ! 


0082 


01DE' 








0084 


1FA0 


CALL 


0R10 




0086 


DFF5 


CALR 


MEVLNE 1 


START NEW LINE ! 


0088 


C820 


LDB 


RL0,#' ' 




008ft 


34CA 


LDA 


R10,R12(SNDCHR) 




008C 


01DE 








008E 


1FA0 


CALL 


OR 10 ! 


SND CHR 1 


0090 


ESC A 


JR 


HDNG ! START AGAIN ! 






ADDLE: 






0092 


C80A 


LDB 


RL0,#LE 




0094 


34CA 


LDA 


?.10,R12(ftiSNDCHR) 


0096 


01DE 
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0096 


1FA0 


CALL 


0R10 ! SEND LF CHR ! 




009A 


6D43 


PESFLG 


Z 




009C 


9EC8 


RET 






O09E 




END CONSOL 










GLOBAL 






009E 




NEWLNE PROCEDURE 








1 5|C 3^ 5(C 5{R 


> 3|C 3,C3|C 5^ 3(C 3^ 3jc JjS 5,C Jj? 5,5 5|C 3j% Jji 3jC 5j» 5jC 5|5 5{C ?j5 5{? 5(* 


. 5 ;: 

»♦» 






•T* 

NEWLNE: 


SENDS CR AND LF TO CONSOLE 


%u 






sis 5;i 5|? Jj: s|c ?Jc 5jc 5}; 5{? 


Hf.'ip. ;;;?;cX53r 5{c;J::55 5;s5;s3;i5;s5{S5?c3;<;;j5;c 


Oi. t 
! 






ENTRY 






009E 


34 C A 


LDA 


R10,R12(SNDCHR) 




00A0 


01DE 








00A2 


CS0D 


LDB 


RL0,#CR 




00^4 


1FA0 


CALL 


0R10 




00A6 


C80A 


LDB 


RL0,#LF 




00A8 


1FA0 


CALL 


0R10 ! ADR SNDCHR IN R10 


! 


00^ A 


9E08 


RET 






00AC 




END NEWLNE 










GLOBAL 






00AC 




CONRD PROCEDURE 








1 •ir «V %<)* ^ V' ^ 

I ^ ^ «|o ^ ^ 


3*t 






=«' CONRD: 


GETS CHAR FROM CONSOLE INPUT 


%■« 








BUFFER (INTBUF) AND ECHOS 








3*C 


BACK TO CONSOLS. LOOPS UNTIL 


»r 



RECEIVE CHi^.RACTSn. 










- REG 


USE: RETURN RL0= CHR - 






5J5 


AND Z IF CHR=CR 














^ “s** 'A* •A* «ju «A» «J. 


r «v ^ ^ %u ^ ^ ^ ^ ^ ^ %V f 

» ^ ^ ^ ^ •'i^ ^ ^r* ^ ^ ^ 1 






ENTRY 




00 AC 


61E0 


TC :LD 


R0,GETOUT(R14) 


00AE 


030E 






00B0 


4BE0 


C? 


R0 ,NXTPTR(R14) ! COMPARE GET AND 


00B2 


030C 




! PUT PTRS ! 


00B4 


E6F3 


JR 


Z.TC ! RSC NOTHING ! 


00B6 


93F2 


PUSH 


0R15.R2 


00B8 


34CA 


LDA 


R10,R12(#GET3UF) 


00BA 


0000- 






00BC 


1FA0 


CALL 


0R10 ! GET RNGBUF ADR ! 


00BE 


6FE0 


LD 


GETCUT(R14) ,R0 


00C0 


030E 






00C2 


2028 


LDB 


RL0,0R2 ! STO CHR FOR RTN 1 


00C4 


97F2 


POP 


R2 ,0R15 
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! CHECK FOR 


NON-DISPLAY FROM LOAD FILS ! 


00C6 


0B09 


C? 


R9 ,#%AAA A 


00C8 


AAA A 






G0CA 


E603 


JR 


Z,NC DISPLAY 


00CC 


34CA 


LDA 


P10,R12(SNDCHF.) 


00CS 


01DE' 






00D0 


1FA0 


CALL 


0R1C- 






N'O DISPLAY: 


00P2 


9E08 


RET 




00D4 




END CONRD 









GLOBAL 




00D4 




QUIT PROCEDURE 








wy vy «*'• 

^ #1% #|S 5,* «y« #1% ^ 4 ft »ft •>!* r|* *|» »|« rf »|« 






*v 

* QUIT: 


V 

TRANSMITS ALL CHR AND CR FROM - 








CONS TO MCZ; THEN RELAYS ALL 






n' 


TO CONS FROM MCZ; AND ETC. y 






**• ^ 5** *** >*» V- «•*« 
*Tr nC ^ ^ ^ 


^ ^ ^ ^ t 

>1^ >1^ ^1% ^1% ^1% r|% I 






ENTRY 




00D4 


4DE8 


CLR 


MCZPUT(R14) 


00D6 


0310 






00D8 


4DE8 


CLR 


MCZGET(R14) 


00DA 


0312 






C0DC 


65E0 


SET 


MFLAGS(R14) ,#TR?MDE ! RESET 3UF PTRS 


00DS 


031C 












! AND ENTER TRANSPARENT MODE ! 






! CONSOLE 


RECEIVE ROUTINE ! 






PORTB: 




00E0 


61E0 


LD 


R0 .GETOUT (R14) 


00F2 


030E 






00 F4 


4SE0 


CP 


K0 ,NXTPTH(R14) ! CK FOR CONS INPUT 


00E6 


030C 






00F8 


E60A 


JR 


Z, PORTA ! NO, CK MCZ ! 






! PROCESS 


CONSOLE INPUT 1 


00EA 


34CA 


LDA 


R10,R12(#GET3UF) 


00EC 


000£^ 






00EE 


1FA0 


CALL 


0R10 I GET RNGBUF ADR ! 


00F0 


6FE0 


LD 


GETOUT (R14) ,R0 I SET BEGIN PTR \ 


00F2 


030E 






00F4 


2028 


LDB 


PL0.0R2 


00F6 


34CA 


LDA 


R10,R12(#SNDMCZ) 


00F8 


0000^ 






00FA 


1FA0 


CALL 


0R10 ! ECHO CHR TO MCZ ! 


00FC 


EEFl 


JR 


NZ, PORTB ! CONTINUE UNTIL CR ! 
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! MCZ R 


ECEIVE ROUTINE ! 






PORTA : 






00FE 


61E0 


LD 




R0 ,MCZGET(R14) 


01^0 


0312 








0102 


4BE0 


CP 




R0 ,MCZPUT( R14) ! CK FOR t^CZ INPUT 


0104 


0310 








0106 


S6EC 


JR 




Z.PORTB ! NO, CK CONSOLE...! 


0108 


34 C A 


LDA 




R10,H12(#G^^CZAD) 


010A 


0000^ 








010C 


1EA0 


CALL 




OR 10 ! GET MCZBUF ADR ! 


010E 


6FE0 


LD 




MCZGST(R14) ,R0 


0110 


0312 








0112 


2028 


LDB 




HL0,OR2 ! GST CHAR FROM MCZBUF I 


0114 


34CA 


LDA 




R10,R12(SNDCHR) 


0116 


01DE 








0118 


1EA0 


CALL 




0R10 ! OUTPUT CFR TO CONSOLS ! 


011A 


E8F1 


j 




PORTA ! CONTINUE TIL EMPTY ! 


011C 




END QUIT 








GLOBAL 






011C 




SKPELK 


PROCEDURE 










^T|% ^1** #1^ >1% #1^ 






* SKPELK: 


SKIP OVER BLANKS TO NEXT * 










CHARACTER. * 






# REG 


USE 


: RETURN RL0 = 1ST NON-BLK - 






* 




CHAR AND Z IF =CR * 












ENTRY 










! SKIP 


OVER 


BLANKS TO NEXT ARGUMENT ! 


011C 


DFE0 


CALR 




GETCHR 


011E 


9E06 


RET 




Z I GOT CR ! 


0120 


0A08 


CPB 




RL0,#' ' ! CK FOR BLANK ! 


0122 


2020 








0124 


E6FB 


JR 




Z,SKPBLK ! YES, ! 


0126 


9E0S 


RET 




! GOT CHAR ! 



0128 



END SKPELK 
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GLOBAL 



012S 




GETADr. PROCEDURE 

I »•<* *•# %'<« »V *.•<» »’■» 

1 'I* 


O'* 

#,% ^1% >1% #1% 






* GETADR: 


»v 

GETS NEXT ARGUMENT AND * 






'I' 


CONVERTS 


TO HEX ADDRESS. * 






* REG USE 


: INPUT 


PL0 = 1ST CH OF “HG * 






<i» 


RETURN 


R3 = HEX ADR * 










AND Z,C IF CP. ONLY* 






%u 




Z,NC IF ARG.CR * 






5!s 




NZ,NC IF ARG,SP * 






OU UU V# «J*« %v WU V# ' 

•Y* ^ ^ ^ ^ ^ ^ ^ ^1% #1% ^ ^ ^ 


s;s 5{i 5*^3{S 5^5;c Jjc s;c 5jt 5|c ^5j6 5;c 5;;s;s :|C2^ ?J; f 






ENTRY 










! CK FOR CR 


ONLY ! 




0128 


6D3S 


CLR 


R3 




012A 


0A08 


CP3 


RL0,#CR 


! CK FOR CR ! 


012C 


0D0D 








012E 


EE02 


JR 


NZ , NOTCH 




0130 


8D81 


SETELG 


C 




0132 


9E08 


RET 




! RETURN FOR CR ONLY ! 






ICONVERT ASCII ADDRESS TO HEX ADDRESS 1 






NOTCH : 






0134 


DEE2 


CALR 


CONVERT 


IBYTF TO 4-BIT HEX ! 


0136 


S70A 


JR 


C, REPERR 


! GOT BAD CHR ! 


0138 


3EB8 


RLD3 


RL0,RL3 




013A 


ES38 


RLD3 


RL0,RH3 


ISHFT LEFT TO MS ! 


013C 


DEE0 


CALR 


GETCKR 


I GET CHR FROM INT3UF 


013E 


9E06 


RET 


Z 




0140 


0A08 


CP3 


RL0,#' ' 


!CK FOR SPACE ! 


0142 


2020 








0144 


EEE7 


JR 


NZ , NOTCH 


! IF NOT , CCNT ! 


0146 


D016 


CAL? 


SXP3LK 


! SKIP TO NEXT AP.G ! 


0148 


81)83 


RSSELG 


C 




014A 


9E03 


RET 




! SPACE after ARG ! 






REPERR: 






014C 


34CA 


LDA 


R10,R12( 


#EROR) 


014E 


0000* 








0150 


1EA8 


JP 


0R10 




0152 




END GETADR 
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0152 



0152 

0154 
0156 

0155 
01 5A 
015C 

015F 



015E 



015E 

0160 

0162 

0164 

0166 

0168 

016A 

016C 

016E 

0170 

0172 



GLOBAL 

GETNXT PROCEEURE 

f ^ u' 3,'t Sp 5;c :{« 5j! i\i I’j: y,: ;;c 3*^ 






^ ^1% ^ #1% 



* GETNXT: SKIP TO 3EGINIMG OF NEXT 
ARGUMENT IN COMMAND. 



REG USE: RETURN RL0 = GEAR OR CR - 
* AND Z IF = CR - 

A i*£ 



sjcr^csjcj^s a;i5;::;s5;:5,‘5 5;<5,'t3;«:{c:{c:{s3;s>r5t^5!^5|c5;sj;s5;c5;?5{c5{s5^ f 

ENTRY 

! SKIP OVER CURRENT ARGUMENT TO NEXT SPACE I 



DFFB 


CALR 


GETCHR 




9S06 


RET 


Z 


! RTN IF CE=CH ! 


0A08 

2020 


CP3 


RL0,#' ' 


! FIND FIRST SPACE 


EEFB 




NZ, GETNXT 




E8BF 


JR 


SKPELK 


! NOW SKI? BLANKS ! 




END GET 


NXT 






GLOBAL 

GETCHR 


PROCEDURE 






j s!ts;s#s!«## 


VU %i# ^>0 0^«IU *(W %*0 

^ 0^%. ^ ^ ^ ^ 


5«^ 5»* '*1^ 3^S 3}S jJS !{C jJS ?JC 3j< 5|t 3}S 5jt 5{t 5*|C 




*T* 




kW 



GETCHR: GETS NEXT CHR FROM INTEUF 
# AND INCREMENTS INTPTR. 



=■•• REG USE: RETURN RL0 = CHR 
“S' AND Z IF CR 



«V V# %V % V sV i 

0^ r|% ^1% ^1* ^1% ^1% ^1% ^1% iT|% ^1^ ^1% I 

ENTRY 



! INC PTR ! 
!CK FOR CR ! 



93F2 


PUSH 


(?R15,R2 ! 


61E2 

0304 


LD 


R2 , INTPTR ;R14) 


2028 


LDB 


RL0,0R2 ! 


69E0 

0304 


INC 


INTPTR(R14) ,#1 


0A08 

0D0D 


CPB 


P.L0,^^CR 


97 F2 


POP 


R2 ,GR15 


9E08 


RET 





END GETCHR 
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0172 



GLOBAL 

CONVERT PROCEDURE 

%v -hV •.!.# ju v*^ iki# %•« %•# v^ 

^C ^ *X^ ^X* 

5{c jjs 

* CONVERT: CONVERTS 8-BIT ASCII CHR * 

- TO 4-3IT HEX VALUE. VALID - 

CHR IS 0-9 OR A-E; 17 NOT 
CHR, EXIT TO EXEC EROR . - 

•jt* V. 

REG USE: INPUT RL0 = 3-BIT ASCII ’S' 

- RETURN RL0 = 4-BlT HEX IN 

* LSW. '•' 



%V wi# ^1^ JU V^ i 

^ ^ ^ ^ ^ <I«I ^1% -y* ^1% #TJ% ^P #p ^1% «y» ?p ^ #p ?|% ^ rp ?p Jp ^ | 

ENTRY 

! CHECK FOR VALID CHAR ! 



0172 


0A08 


CPE 


RL0,#'0' 1 


FILTER <'0' ASCII 


0174 


3030 








0176 


9E07 


RET 


C ! 


ERROR ! 


017B 


0A08 


CPB 


RL0,#"9'+1 


! CK IF DIGIT ’ 


017A 


3A3A 








017C 


E708 


JR 


C. NOFIX 




017E 


0A08 


CPS 


RL0,#'A' ! 


FILTER <'k' ASCII 


0130 


4141 








0182 


9E07 


RET 


C 




0134 


0A08 


CPB 


RL0,#'F'+1 


’FILTER >'F' ASCII 


0186 


4747 








0188 


EF06 


JR 


NC , RETSIG 


! ERROR ! 


016A 


0208 


SUBB 


RL0, ^7 


I ALPHA ADJUST ! 


018C 


0707 


NOFIX: 






018E 


0608 


ANDB 


RL0,#%0F 


! GET LOW NIBBLE ! 


0190 


0F0F 








0192 


8D83 


RESFLG 


C 




0194 


9E08 


RET 




! P.TN HEX VALUE ! 






RETSIG : 






0196 


8D81 


SETFLG 


C 




0198 


9E08 


RET 


! 


RTN FOR BAD CHR 1 


019A 




END CONVERT 
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019 a 



019ft 

019C 

019E 

01.40 

01A2 

01A4 



01A6 

01AS 



01AA 
01AC 
01 AE 
01B0 
0132 
0134 
0136 
0138 



013A 

01SC 



013E 

01C0 

01C2 

01C4 

01C6 

01CS 

01CA 

01CC 



GLOBAL 



PBUENC LABEL 
PRNTBE PBOCEDUFE 



^ '<* “nr 'i* *t* n" n'* ^ ^ *%'• "T‘ *%'* 



:|<5;«5jc3;cy,t:,t 



u# «c> y.. «v> «.u «t« y* «•., «. 

^ 1* V 'C n» 'I* ' 



* PRNTBE: PRINT CONTENTS OE 0UT3UE 

* TO CONS WITH CR AT END. 



* PBUENC: print BUEEER CONTENTS WITH - 

* NO CR. - 



jjt 3yC 3|C 3^ S{C 3{C 9^ 9^ 9(? 3jS 3|^ 9|C 3{C9{C 5{5 9j«9{£ 9|C 9|S9|C 5jC 5jC 9|« 9jC 9jC 9^i 9}f rffi 9|C 9|C 9{C ^ 9{C 9|C J 

ENTRY 





! STORE 


CR IN OUTBUF I 




61E2 


LD 


R2,0UTPTR(R14) 




0306 








0C25 


LDB 


0R2,#CR 




0D0D 








69 E0 


INC 


0UTPTR(E14) ,#1 




0306 










PBUENC : 






76E1 


LDA 


Rl,OUTBUF(R14) 


! LOAD ADF. OF OUTBUF 


0080 










! OUTPUT 


LOOP ! 






PRNT : 






2018 


LDB 


RL0.GR1 ! 


GET CHR 1 


A910 


INC 


R1 1 


INC INDEX ! 


DFE9 


CALR 


SNDCHR ! 


OUTPUT CHR ! 


S604 


JR 


Z. OUTLF ! 


?CHR = CR ! 


4BE1 


CP 


R1 ,OUTPTR(R14) 


! CK FOR END ! 


0306 








E7F9 


JR 


C,?RNT ! 


LOO? ! 


E802 


JR 


FINI ! 


FINISHED ! 



! ADD LF AFTER OUTPUT OE CR ! 

OUTLF: 

C80A LDB RL0,#LE ! OUTPUT LE ! 

DFF0 C.ftL? SNDCHR 

! FILL OUTBUF WITH BLANKS AND RESET OUTPTR ! 
FINI : 



76E3 

0089 


LDA 


R3 .OUTBUF (R14) 




6FE3 

0306 


LD 


0UTPTR(R14) ,R3 


! RESET PTR ! 


2100 

003F 


LD 


R0 ,#0UTSI2/2-l 


! FILL CNT ! 


4DE5 

0089 


LD 


OUTBUF ( R14 ) .;*' 


* 
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01CE 


2020 






01D0 

01D2 


76E2 

0080 


LDA 


R2,0UTBUF'R14) 


01D4 


A 123 


LD 


?.3 ,R2 


01D6 


A931 


INC 


R3,»2 


01D8 

01DA 


BB21 

0030 


LDI 


0E3,GR2,R0 ! FILL CUTBUF ! 


01DC 

eiDF 


9E08 


R ET 

END PRNTBF 
GLOBAL 




01DE 




SNDCHR PROCEDURE 

1 j}C 3^ i,€ Jijc SjC 3yf 5{C 5jC S}% 3jC SjS SjC 5|5 i|S S|£ iJC 3^ 3y« 5j» 5jC 3^ 3^t 3|« 



- SNDCHR: CK MONITOR FLAG WORD FOR * 
« OUTPUT STOP SIGNAL (OSTOP); - 

* IF NOT. SEND CHAR TO CONS. - 

* REG USE: INPUT RL0= CHR - 

* RETURN RL0= CHR AMD Z IF - 

* CER = CR. - 



»*<• I*** %*.» wU %V vV »Jl» *'# V'*' '■V *V Vi» 

^ip tf'lH r|% tfp >p ^p ^p ' 






ENTRY 

! WAIT FOR OUTPUT OK SIGNAL ! 

01DE 67E2 BIT MFLAGS (R14) , #OSTOP ! CK FLAG ! 

01S0 031C 

01E2 EEFD JR NZ.SNDCER 

’OUTPUT CHAR TO TERMINAL ! 



01E4 


3A04 


INB 


RH0.PORTBC 


! GET PORT STATUS ! 


01 E6 


FFE3 








01E8 


A600 


BITB 


RH0,#TXR 


! TRANS PDY? ! 


01EA 


E6F9 


JR 


Z, SNDCHR 


! NO. CONTINUE...! 


01EC 


3A86 


OUTB 


PORTED. RL0 


! YES. OUTPUT CHR ! 


01EE 


FFEl 








01F0 


0A08 


CPB 


RL0.#CR 




01F2 


0D0D 








01F4 


9E08 


RET 






01F6 




END SNDCHR 







01?6 



GLOBAL 

CCMV3 LABEL 

C0N7W PPOCEDURE 

! gu ^ «o^ «JU «ju y# «,!« «V sU «(U JU WU vV vy 

^ ^ -'n •’r ^ ^ n'* nr* ^ ^ nr nr ^ ^ *r* *■*' *r* n' nr nr ^ ^ ^ ^ ^ 



5!C 

❖ 

❖ 

# 

>!« 

« 



CCNVW: CONVERT INTERNAL VORD, 4- 
4-BIT HEX VALUES TO EOUF. 
8-3IT ASCII REPRESENTATIONS 
OF THE HEX VALUES . 

CONVB: CONVERT INTERNAL BYTE HEX 
VALUE TO ASCII CHARACTERS. 

REG USE; INPUT R5 = WORD/BYTE(S) 

R3 = CKSUM ACCUM 
RETURN R3 = UPDATED ACCUM 
AND ASCII CHR 














IN 


OUTBUF 


V# 






ou *.v 

'«• ^ .y. 


yu 4ju 

^1* #1% ^1% 


*k«# «v %t# yu y., y# 

^p ^p >p 


1 






ENTRY 
! CONVERT 


WORD ! 








01F6 


A050 


LDB 


RE0.RH5 




! 1ST BYTE I 




01F8 


DFFF 


CALF 


NIBBLE 












! CONVERT 
CONVB: 


BYTE ENTRY 


POINT 


1 




01FA 


^0D0 


LDB 


RH0,RL5 












NIBBLE: 










01FC 


3E08 


RLDB 


RL0,RH0 


! 


FIRST NIBBLE 


! 


01FE 


DFFF 


CALF 


CONPUT 








0200 


BE08 


RLDB 


RL0,RH0 




! NEXT NIBBLE 


f 






! CONVERT 


NIBBLE TO ASCII CHAR AND STORE 


i 






CONPUT: 










0202 


0608 


ANDB 


RL0,^i%0F 


f 


GST NIBBLE ! 




0204 


0F0F 












0206 


308B 


ADDB 


RL3,RL0 


f 


UPDATE CKSUM 


1 


0208 


0A08 


CPB 


RL0,#%0A 


f 


0-9? ! 




020 A 


0A0A 












020C 


E702 


JF 


C, ASCII 


f 


YES... ! 




020E 


0008 


ADDB 


RL0,#7 


J 


NO, CONVERT 


CHR 1 


0210 


0707 


ASCI I : 










0212 


0008 


ADDB 


RL0,#%30 


1 


CONVERT TO ASCII ! 


0214 


3030 
















! STORE IF OUTBUF ! 








0216 


93 FI 


PUSH 


0R15.R1 


f 


SAVE R1 ! 




0213 


61E1 


LD 


R1,0UTPTR(R14) 






021 A 


0306 
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! STORE CHR ! 



■me 2E16 
?21E 69E0 
0220 0306 
0222 97E1 
0224 9E08 
0226 



LDE 

INC 

POP 

RET 

END CONVW 
END SUPPORTl 



ORl ,RL0 
0UTPTR(R14) 

R1 ,GR15 
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4. SUPPCRT2 MODULE 



zseeoASM 
LOG OBJ 



. 22 

CODE STMT SOURCE STATEMEMT 



1 SUPP0RT2 MODULE 
$LISTON $TTY 

*V 

-*r ^ -nr ^ -TT ^ n* nr ^ n* n* ^ ^ ^ 'I"' -r* -r* ^ 






« SUPPORT TWO MODULE: MODULE TWO EOR * 
- SECONDARY STORAGE INTEPFACING - 

jJj 

3{: 3^^ ^ 3^ ^ #{S 9(2 SjC «}: 3jC ^29p 9(2 9j2 ^ 9{C 9(2 9^ 9(29(2 9(29(2 9(2 9(C 9(2 9(2 9(29(29(2 9(2 9(29(2 9(29(2 9(2 | 



CONSTANT 

RXR 

TXR 

PAR 

PORTAD 

PORTED 

PORTAC 

P0RT3C 

IDPORT 
I C PORT 



:= 2 
;= 0 
:= 7 

:= %FFD9 
:= %FFS1 
:= %FFDB 
;= %FFE3 

:= %FFCB 
:= %FFC9 



TCMD := %FFD2 

TDTA := %FFD0 



BUS_LOCK :=%FFF9 
BUS UNLOCK :=%FF?S 



VINTR 



%(2)000i00e0000ee000 



VIBIT := 12 

ESCAPE := %13 



3S := %08 

LINDEL := %7F 

CR ;= %0D 

LF := %0A 

TXOFCH ;= %13 

TXONCH := %11 

INSIZ := 128 

OUTSIZ ;= 128 

R3SIZ := 256 

! BIT POSITIONS IN MONI 
TRPMDE ;= 0 

ISTOP := 1 

OSTOP := 2 



! INT3UF SIZE ! 

! OUTBUF SIZE ! 

! RING BUFFER SIZE ! 
TOR FLAG WORD ! 
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SNDMDE 


:= 3 


LDMDE 


:= 4: 


ESC 


:= 5 


TXMSK 


:= %6 



EXTERNAL 




EXEC 


LABEL 


P3UENC 


LABEL 


NMI RTN 


LABEL 


CONVW 


PROCEDURE 


PPNTBF 


PROCEDURE 


BRKROU 


LABEL 


NEWLNE 


PROCEDURE 


GETBUF 


PROCEDURE 


GETLNE 


PROCEDURE 


LOADFL 


PROCEDURE 



IN TEEN. ''L 

$SECTION DATA_DEC 
$A3S 0 



0000 


INTBUF 


ARRAY 


[128 


BYTE] 


00£0 


OUTBUF 


ARRAY 


[128 


BYTE] 


0100 


RNGBUF 


ARRAY 


[256 


BYTE] 


0200 


MCZBUF 


ARRAY 


[256 


BYTE] 


0300 


BUFADR 


WORD 






0302 


BUFSIZ 


’WORD 






0304 


INTPTR 


WORD 






0306 


OUTPTR 


WORD 






0308 


UNIMP 


WORD 






030 A 


BP.KCNT 


WORD 






030C 


NXTPTR 


WORD 






030E 


GETOUT 


WORD 






0310 


f^CZPUT 


WORD 






0312 


MCZGET 


WORD 






0314 


BRKSTR 


WORD 






0316 


B-RK ADR 


WORD 






0318 


TMPSP 


WORD 






031A 


TMPFCW 


WORD 






031C 


MFLAGS 


WORD 







! USER REGISTER STORAGE ! 



031E R0 WORD 
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032(7 




R1 


*ORD 


0322 




R2 


WORD 


0324 




RZ>Z 


WORD 


0326 




R4 


WORD 


0328 




R5 


WORD 


032A 




R6 


WORD 


032C 




R7 


WORD 


032E 




R8 


WORD 


0330 




R9 


WORD 


0332 




R10 


WORD 


0334 




Ell 


WORD 


0336 




R12 


WORD 


0338 




R13 


WORD 


033A 




R14 


WORD 


033C 




R15 


WORD 


033E 




RPC 


WORD 


0340 




HEC_ 


WORD 


0342 




RETRY 


WORD 


0344 




AM_STR WORD 
GLOBAL 

^SECTION SUPP0RT2 PROC 
$REL 0 

GLOBAL 


0000 




NMI PROCErURS 

1 ^ ^ ^ y# y#wu y# 

I Hr r|« 

5(S ^ 

« NMI INT: NON-MASKABLE INTERRUPT * 

* HANDLER FOR RETURN TO * 

* INITIALIZATION ENVIRONMENT * 

* DUE TO ERROR IN MCZ LOAD. * 

* 5f: 

%v y^ y#y^ «*^y# y^ y^ ^^y^ y^ wu y^ y^ yu yu y# %v y# y^ y^ y« y^ y^ t 

rp ^p «p ^p ^p #p ^p ^p ^p ^p #p ^p «p ^p rp <rp #p ^p #p ^ rp «>p #p «p ^p «p ^p «p 1 

ENTRY 


0000 

0002 


010E 

0006 


ADD 


R15,#6 ! RESTORE STACK PTR 


0004 


76 C A 


LDA 


R10,NMI_RTN(R12) 


0006 


0000* 






0008 

000A 


1EA8 


JP 

END NMI 


0R10 
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000A 



GLOBAL 
LOAD FILE 



1 

LOAD FILS: 



❖ 



PROCEDUR] 



xf V^ ^ V^ 

^r '!*• ^ #,% •' 1 ^ #1^ #1^ #1% ^1% 

LOADS I^CZ FILENAME INTO - 
RINGBUFFER (CONS INPUT); - 
CONVERTS LOAD «DR (R3) - 

INTO ASCII CHAR AND =<* 

STORES IN RINGBUFFER. * 



REG USE: INPUT R3 = HEX LOAD ADR - 

- R4 = FILENAME ADR - 

# 5 ? 

❖❖❖sjJ5!:5!=sis 5;<5;c5!!^*5S:i:«^5’,ss;!s!s#>S5:t5:i«3;t5it«5j5j;s>:t>i!«sit>:s:{5 1 

ENTRY 

! LOAD FILENAME INTO RINGBUFFER ! 



000A 


61 E0 


LD 


R0,NXTPTR(R14) 


000 c 


030C 






000E 


A 109 


LD 


R9,R0 ! SAVE RINGBUF OFFS 


0010 


76CA 


LDA 


P.10, GETEUF(R12) 


0012 


0128' 






0014 


1FA0 


CALL 


0R10 ! CONVERT TO ADP ! 






! RETURNS 


?2 = ADR 1 


0016 


8D08 


CLR 


R0 


0018 


2048 


LDB 


RL0,0R4 ! 1ST 3YTE=NO. CHR 








! IN FILENAME ! 


001A 


A940 


INC 


R4 


001 c 


8109 


ADD 


R9,P0 ! UPDATE OFFSET ! 


001E 


6FE9 


LD 


NXT?TR(R14) ,R9 


0020 


030C 






0022 


BA41 


LDIRB 


0R2,0R4,E0 ! ENTER FILENAME ! 


0024 


0020 










! CONVERT 


LOAD ADDRESS TO ASCII ! 


0026 


0B03 


CP 


P3,«%FFFE ! CK FOE LOAD ADP ! 


0028 


FFEE 






002A 


E610 


JR 


Z,LD FILE ! USE IMAGED .^DR ! 


002 c 


A032 


LDB 


RH2,RH3 ! FIRST BYTE ! 


002 s 


DFDA 


CALR 


HEX TO ASCII 


0030 


A124 


LD 


R4.R2 ! SAVE MSB'S ! 


0032 


A0B2 


LDB 


PH2,RL3 ! GET SECOND BYTE ! 


0034 


DFDD 


CALR 


HEX TO ASCII 


0036 


A125 


LD 


R5,R2 ! SAVE LSB'S ! 






! LOAD ADDRESS IN RINGBUFFER I 


0038 


61E0 


LD 


R0,NXTPTR(R14) 1 RINGBF OFFSET 


003 A 


030C 






003C 


76CA 


LDA 


R10,GETBUF(R12) 


003E 


0128' 
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0040 


1EA0 


CALL 


0R10 ! CONVERT TO ADR ! 


0042 


2E24 


LD 


0R2.R4 ! ENTER MSB'S ! 


0044 


3325 


LD 


R2(#2) ,R5 ! ENTER LSB 'S ! 


0046 


0002 






0048 


69 E3 


INC 


NXTPTR(R14) ,#4 ! UPDATE PTF. ! 


004A 


030C 










LD_FILE: 








! INSERT 


CARRIAGE RETURN ! 


004C 


61E0 


LD 


R0,,NXTPTR(R14) 


004E 


030C 






0050 


76CA 


LDA 


R10 ,GETBUF(R12) 


00 52 


0129' 






0054 


1FA0 


CALL 


0R10 


0056 


6FE0 


LD 


NXTPTR(R14) ,R0 


0059 


030C 






005® 


0C25 


LDB 


0R2,n0D 


005C 


0D0D 










! LOAD F 


ILE WITH NO CONSOLS PROMPTING ! 


005E 


2109 


LD 


R9,#%AAAA ! NC_?ROMPT SIGNAL ! 


0060 


AAA A 










! GET COMMAND 1 


0062 


76 C A 


LDA 


R10,GETLNE(R12) 


0064 


0000'-!' 






0066 


1FA0 


CALL 


0R10 


0068 


7C05 


El 


VI ! ENABLE VECTORED INT 


006A 


76CA 


LDA 


R10 ,L0ADFL(R12) 


006C 


0000»« 






006E 


1FA0 


CALL 


0R10 ! LOAD FILE ! 


0070 


6D98 


CLP. 


R9 I DELETE SIGNAL 1 


0072 


61E1 


LD 


R1 ,NXTPTR(R14) 


0074 


030C 






0076 


6FS1 


LD 


GET0UT(R14) ,R1 ! RESET PTRS ! 


0078 


030E 






007 A 


9E08 


RET 




007C 




END LOAD 


_FILE 
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007C 



007C 

007E 

0080 

0082 

0084 



0086 

0088 

008A 

008C 

008E 

0090 

0092 



0094 

0096 

0098 

009A 



009A 



009A 
009C 
009E 
00 A 0 
00A2 





HEX TO ASCII PROCEDURE 






f 

1 


"•t* 3*< V-» »»«» V.* »V »•<* »'<» »•# ^ 

O'* V '1'**%' 'i’» -»? O'* '1* -'p 'I* O' ^ 














HEX_T0_ 


ASCII: CONVERTS 


HEX ADR (TVO - 




;'s 


4-BIT VALUES) 


TO ASCII (TWO - 




«A» 

'I* 

JU 

*T* 


9-BIT VALUES). 






* REG USE 


: INPUT RH2 = 


INPUT BYTE - 

3?* 






•)% ««** ^ ^ ^ 


<^v V' »a» ju ■ 

"r ♦i* o» *'r n*’ ^ ^ 'T* n* n* f 




ENTRY 






BE2A 


RLDB 


RL2,RH2 ! 


CONVERT 1ST NIBBLE ! 


DEED 


CALR 


HEX_ASCII 




A0A8 


LD3 


RL0.RL2 ! 


TEMP STORE BYTE ! 


BE2A 


RLDB 


RL2,RH2 ! 


CONVERT 2ND NIBBLE ! 


A082 


LDB 


RH2.RL0 ! 


RELOAD BYTE ! 




HEX ASCII: 






060A 


AND 3 


?L2,#%0F ! 


GET NIBBLE ! 


0F0F 








0A0A 


CPB 


RL2,#%0A ! 


'0-9'? ! 


0A0 A 








E702 


JR 


C.CONV ASCII 




000A 


ADDB 


RL2,#7 ! 


CONVERT NUMERAL ! 


0707 










CONV ASCII: 






000A 


ADDB 


RL2,#%30 ! 


CONV TO ASCII ! 


3030 








9E08 


RET 







END HEX TO ASCII 



GLOBAL 

SNDMCZ PROCEDURE 

•!<» *1* %v *'• vlrf »•- »•» »*<» **# «.•< vl« «k'* 

^1* #lp »*'• *’4* «»• O'* 'I* 'f* *f* 'I* O* *T* *1^ O^ *4^ 

3{< oC 

« SNDMCZ: OUTPUT CHAR TO SERIAL PORT - 

- ONE (MCZ SYS), * 

s;j « 

« REG USE: INPUT RL0 = CHAR - 

RETURN Z IF CHAR = CR 



ENTRY 



3A04 

FFDB 


INB 


RH0.PORTAC 


! GET STATUS ! 


A600 


BITB 


RH0,#TXR 


! TRANSMIT RDY? I 


E6EC 


JR 


Z, SNDMCZ 


! NOT YET ! 


3A86 


OUTB 


PORTAD,RL0 


! YES, SND CHR I 
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20A4 


FF39 






•■7 2A6 


0A03 


CP5 


RL0,#CR 


20 AS 


0D0D 






00 AA 


9208 


R2T 




00AC 




END SNDNCZ 








GLOBAL 




00AC 




SNDMSG PROCEDURE 






1 5;t?;sj;c 

• 


^ >;t 5}S rjs:;; j;: ?;s 5{S 3}c 5): :{? j;: s;c ?;s 5|c ?|s ❖ sis 






* SNDMSG; 


SEND MSG SPECIFIED TO CONS - 








(P0RT2). FIRST BYTE OF MSG * 








IS THE DECIMAL LENGTH IN - 






❖ 


WORDS. j 






- REG USE 


: INPUT P.2 = MSG ADDR * 






5jt3^5;cs^5;€5;c3;t3j;:j::;5 


5;c3;:s;5:',s:;t5;t5;c3^?’^5;5>;cs;c5;c5^3;<35s3;s5j:?;i5{c3}c:;::;«5:c5,'c 1 






ENTRY 




00AC 


3421 


LDA 


R1 ,R14(ffOUTBU?) 


00 AE 


0080 






00E0 


6D08 


CLR 


P0 


00E2 


2028 


LD3 


RL0.0R2 ! GET BYTE COUNT 1 


00B4 


8101 


ADD 


R1,R0 


00E6 


3321 


LD 


R14(#OUTPTM ,R1 


00E9 


0306 






00BA. 


A920 


INC 


R2 ! SETUP FOR TRANSFER ! 


00BC 


3421 


LDA 


Rl,R14(#OUTBUF) 


00EE 


0080 






00C0 


BA21 


LDIRB 


GR1,0R2,R0 ! TRANSFER TO CUT3UE ! 


00C2 


0010 






00C4 


34CA 


LDA 


R10,R12(#PBUFNC) 


00C6 


0000-'»= 






00C8 


1EA6 


JP 


0R10 ! OUTPUT TO CONS ! 


00CA 




END SNDMSG 





1S6 







GLOBAL 








00CA 




COMINT PROCErURS 










1 

f #1% 
• 


«•# »v 

#1^ ^1% #1^ ^1% r|% 


*>.. «4< «V V*' 








* CON I NT: 


CONS (P0RT2) 


INPUT I NT HDLR - 








❖ 


ROUTINE, WHICH GETS REC CHR - 








-r* 


FROM USART. 


REC CHR IS CK - 










FOR TXOFCH OR TXCNCfi, AND - 










MFLAGS ADJUSTED »CCOFDINGLY 








-nr 

«JU 


TO SIGNAL PROCEDURES. - 








^ 1^ ^ #,% 


j.'s 5|s 3j5 :jc 5[c 5^: 5^5 :|s Hf. y,c sjc 5j: stc >js j;c 5{< f 








ENTRY 








00CA 


93F0 


PUSH 


0R15,R0 






00CC 


93F1 


PUSH 


0R15,R1 






00CE 


93F2 


PUSH 


0R15,R2 


! SAVE WORK REGS ! 




00D0 


93FE 


PUSH 


0R15,R14 






00C2 


7D15 


LDCTL 


R1 ,PS AP07F 


! DATA_AREA ADR ! 




00D4 


211E 


LD 


R14.0R1 










! GET CHAR 


AND CHECK FOR 


TXOFCH OR TXCNCH ! 




00D6 


3A94 


I MB 


RLl, PORTED 


! GET US^RT DATA ! 




00D8 


FFEl 










00DA 


A297 


RES3 


RL1,#PAR ! 


CLR PARITY BIT ! 




00DC 


67E0 


BIT 


MFLAGS (R14) , 


#TR?^DE 




00DE 


031C 






! TRANSPARENT MODE 


1 


00E0 


EE18 


JR 


NZ ,?UTCHR 


! YES ! 




00E2 


0A09 


CPB 


RLl,#TXONCH 


! NO, CK FOR TXONCK! 


00E4 


1111 










00E6 


FE03 


JR 


NZ .AGAIN 


! NO ! 




00S8 


63E2 


RES 


MFLAGS (R14) , 


#OSTOP ! RESET TO, 


1 


00EA 


031C 






! RESUME OUTPUT ! 




00EC 


E818 


JR 


FINISH 










AGAIN : 








00EE 


0A09 


CPB 


RL1,#TX0FCH 


! CK FOR TXOFCH 


I 


00 E0 


1313 










00F2 


EE03 


JR 


NZ ,AGAIN2 


! NO, ! 




00E4 


65E2 


SET 


MFLAGS (R14) , 


#OSTCP ! STOP OUTPUT 


00E6 


031C 










00F8 


E812 


JR 


FINISH 










! CHECK FOF 


ESCAPE CHARACTER ! 








AGAIN2: 








00FA 


0A09 


CPB 


RL1,#ESCAPE 






00FC 


1B13 










00FE 


EE09 


JR 


NZ .PUTCHR 


! NO ! 




0100 


67E3 


BIT 


MFLAGS(R14) , 


#SNDMDE ! YES, CK SND 


0102 


031C 
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fie’4 

0106 


EE03 

67E4 


J? 

BIT 


NZ.ESCP ! YES ! 

MFLAGS(R14) ,#LDMDE ! NO, CK LD MIE I 


0108 


f^31C 






010A 


E603 


J n 


Z.PUTCHK ! NO I 






ESCP : 




010C 


65E5 


SET 


MELAGS (R14) ,#ESC ! SET ESCAPE BIT ! 


010E 


031C 






0110 


S806 


JR 


FINISH 






! ?FIM« 
PUTCHR: 


RY SAVE CHARACTER ROUTINE ! 


0112 


31E0 


LD 


R0 ,R14(#^NXTPTR) 


0114 


030C 






0116 


DEES 


CALR 


GETBUE ! GET RNGBUF A DDR ! 


0118 


33E0 


LD 


R14(#NXTPTR) ,R0 


01 lA 


030G 






011C 


2E29 


LDB 


0K2,RL1 ! PUT CHR IN RNGBUF ! 






El NISH: 




011E 


97ES 


POP 


R14,GP15 


0120 


97E2 


POP 


R2.0R15 


0122 


97E1 


POP 


R1 ,0R15 


0124 


97E0 


POP 


R0.0R15 ! RESTORE WORK REGS ! 


0126 


7E00 


I RET 




0128 




END CONINT 






GLOBAL 




0128 




GETBUE 


procedure' 

WU 

^1** ^ ^1** ^ ^4^ 






5{€ 

- GETBUE: DETERMINES POSITION IN - 






V 


RINGBUEFER TO PUT OR GET - 






5r 


NEXT CHAR. - 






- REG 


USE: INPUT R0 = CURRENT INDEX * 








RETURN R0 = NEW INDEX * 






❖ 


R2 = ADR OF RNGBUF - 






•r* 


s{« ^5^ 5|t ?;s 5*^ s;c;Jc 5;?:^; s;c3{c ^?;c sjt 5 ;: s;ssis 3{{:;i:Jc ^ 5;c>;s 5^5|r 5 ;? f 






ENTRY 




0128 


93ED 


PUSH 


0R15.R13 


012 4 


A102 


LD 


R2.R0 


012C 


A900 


I NC 


R0,#1 ! INC PTR ! 


012E 


0B00 


CP 


R0,#RBSIZ ! WRAP AROUND ! 


0130 


0100 






0132 


EE01 


JR 


MZ ,G3 


0134 


8D08 


CLR 


R0 ! RESET INDEX ! 


0136 


34ED 


G3:LDA 


R13,R14(#RNGBUF) ! NEW ADR ! 


0136 


0100 






013A 


81D2 


ADD 


R2.R13 
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013C 


97 


POP 


R13.0R15 


P13E 


9P0S 


RET 




0140 




END GST5UF 








GLOBAL 




0140 




MCZHND PPi 


OCEDUFE 






1 


«v y> <>*« y« y# y« y< y# •>* y^ y« y* y« y * y « %u %■« «*« y« «,t« y« y* yu 

'i*n^ •%' 'i» *i* n' nr**>* *>* *r* 'Cn' 






'r 

* MCZEND 


: MCZ (SERIAL PORTl) INPUT 








INTERRUPT HANDLER ROUTINE - 








WHICH GETS RECEIVED CHAR - 








FROM US ART, AND STORES IN - 






3|' 


MCZBUF. - 






%V yg y# y» %»* y> *»> *a» y« «a« y« y<* y<» y» yu ^ y# >*» y« «ju y« «<« %<« »•# ■ 






ENTRY 




0140 


93E0 


PUSH 


0R15,R0 


0142 


93F1 


PUSH 


GR15,P1 


0144 


93F2 


PUSH 


0R15.R2 ! SAVE WORK REGS i 


0146 


93FE 


PUSH 


@R15,R14 


0148 


7D15 


LDCTL 


31 .PSAPOFF 


014A 


211E 


LD 


R14.GR1 1 DATA AREA ADR ! 






! GET CHAR 


FROM MCZ 1 


014C 


3A94 


I MB 


RLl.PORTAD ! GET CHR f 


014E 


FFD9 






0150 


*297 


RESB 


RL1,#?AR ! RESET PARITY ! . 


0152 


31S0 


LD 


E0,R14(#MCZPUT) 


0154 


0310 






0156 


FFF3 


CALR 


GMCZAD ! GET MCZBUF ADR ! 


0158 


33E0 


LD 


R14(#MCZPUT) ,R0 


015A 


0310 






015C 


2E29 


LD3 


0R2.RL1 ! SAVE CHAR ! 






IRESTORE WORK REGS f 


015E 


97FE 


POP 


R14 , 0R15 


0160 


97F2 


POP 


E2 ,0R15 


0162 


97F1 


POP 


R1 .0R15 


0164 


97F0 


POP 


R0 ,0R15 


0166 


7B00 


I RET 




0168 




END MCZHND 
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0168 



GLOB JL 

GMCZAD PR0C2DURB 







* GMCZAD: 


GET NEXT ADR OF MCZ BUFFER « 








TO STORE OR GET CHARACTER. - 

❖ 






* REG USE 


: INPUT R0 = PTR IN MCZBUF * 






s't 


RETURN R0 = NEW PTR IN EUF * 






jj# 


R2 = BGN OF MCZBUF - 

^4' 






St? :J: 5*t ^ 


^4^ %}0 ^1# «k4^ «^4^ 

‘*1^ ^4^ ^4^ ^4^ 






ENTRY 




0168 


93 FD 


PUSH 


0E15,R13 


016A 


A102 


LD 


R2 ,R0 


016C 


A900 


INC 


R0 ,#1 


016E 


0B00 


CP 


R0,#RBSIZ ! WRAP AROUND? I 


0170 


0100 






0172 


EE01 


JR 


NZ .GBZ 


0174 


8D08 


CLR 


R0 I RESET OFFSET I 






GBZ: 




0176 


34FB 


LDA 


R13,R14(»MCZBUF) ! GET ADR 


0178 


0200 






317A 


31D2 


ADD 


R2 ,R13 


017C 


97FD 


POP 


R13.0R15 


017E 


9E08 


RET 




0190 




END GMCZAD 








END SUPPORT 


2 
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5. SUPPORTS MODULE 



Z8000ASM 
LOG OBJ 



.02 

COPE STMT SOURCE STATEMENT 



1 SUPPORTS MODULE 
$LISTON $TTY 



Of 






5,C jJC 5,i 



*r 5{C ?jc ' 



I's i'* S*t 






* SUPPORTS MODULE: MODULE THREE FOR 

* SECONDARY STORAGE PRIMITIVES 
FUNCTIONS SUPPORT. STRICTLY 
HARDWARE DEPENDENT; SHOULD 

- MEET STORAGE DEVICE REQUIRE- 

* MENTS FOR INTERFftCING. 

* NOTE: DUPLICATE OF MONITOR LOAD_CMD 

* MODULE. 



^ «ju 

^ ^ ^ #1% <1% ^ #1% ^1% ^ ^ 'V* ^ 



CONSTANT 




RXR 


= 2 


TXR 


= 0 


PAR 


= 7 


PORTAD 


= %FFD9 


PORTED 


= %FFE1 


PORTAC 


= %FFDB 


PORTEC 


= %FFE3 


IDPORT : 


:= %FFC3 


ICPORT : 


:= %FFC9 


TCMD := 


%FFD2 


TDTA := 


%F?D0 


BUS LOCK ; 


:=%FFF9 


BUS UNLOCK :=%FFF8 


VINTR 


= (2)0001000000000000 


VIBIT 


= 12 


ESCAPE 


= %1B 


BS 


= %09 


LINDEL 


= %7F 


CR 


= %0D 


LF 


= %0A 


TXOFCE 


= %1S 
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TXONCH 


:= %11 






INSIZ 


;= 128 


! INTBUE 


SIZE 


OUTSIZ 


:= 128 


! OUTBUE 


SIZE 


RBSIZ 


:= 256 


! RING BUFFER 



! BIT POSITIONS IN MONITOR FLAG WORD ! 
TRPMDE := 0 

ISTOP ;= 1 



OSTOP 

SNDMDS 

LDMDS 

ESC 

TXMSK 



2 

3 

4 

5 

0 / ^ 
/oO 



I 

f 



SIZE 



COMES := 12 



EXTERNAL 

EXTERNAL 

EXTERNAL 

EXTERNAL 



PR NT BE 
GETNXT 
EROR 
SNDCHR 



PROCEDURE 

PROCEDURE 

LABEL 

PROCEDURE 



EXTERN AL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 



GET A DP 
GMCZAD 
SNDMCZ 
CONVERT 
PBUFNC 
SNDMSG 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

LABEL 

PROCEDURE 



EXTERNAL CONVW 



PROCEDURE 



INTERNAL 

$SECTION DATA_DEC 
$ABS 0 



0000 


INTBUE 


ARRAY 


[128 


BYTE] 


0060 


OUTBUE 


ARRAY 


’128 


BYTE] 


0100 


RNGBUE 


ARRAY 


’256 


BYTE! 


0200 


MCZBUE 


ARRAY 


'256 


BYTE] 


0300 


BUEADR 


WORD 






0302 


SUES I Z 


WORD 






0304 


INTPTR 


WORD 






0306 


OUTPTR 


WORD 






0308 


UNIMP 


WORD 






030A 


BRKCNT 


WORD 






030C 


NXTPTR 


WORD 






030E 


GETOUT 


WORD 






0310 


MCZPUT 


WORD 






0312 


MCZGET 


WORD 






0314 


BPKSTR 


WORD 
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0316 


BRKADR 


WORD 


0318 


TMPSP 


VORD 


03 lA 


TMPFCW 


WORD 


031C 


M FLAGS 


WORD 



! USER REGISTER STORAGE ! 



031E 


R0 


WO RD 


0320 


R1 


WORD 


0322 


R2~ 


WORD 


0324 


R3 


WORD 


0326 


R4 


WORD 


0328 


R5 


WORD 


032A 


R6 


WORD 


032C 


R7“ 


WORD 


032E 


RS 


WORD 


0330 


R9 


WORD 


0332 


R10 


WORD 


0334 


Rll 


WORD 


0336 


R12 


WORD 


0338 


R13 


WORD 


033A 


R14 ■ 


WORD 


033C 


R15 


WORD 


033S 


RPC 


WORD 


0340 


RFC_ 


WORD 


0342 


RETRY 


WORD 


0344 


ADR STR 


WORD 



^SECTION LOAD_?ROC 
$RSL 0 



0000 



0000 4DE8 
0002 0312 
0004 4DE8 
0006 0310 
0008 34CA 



GLOBAL 

EMAME PROCEDURE 

^ -r» sji T* -V* ^ 



*t-* »•-» ■ 

•T* *S* ‘V ^ *T* T* ^ T* nr 'r* 'T* <T* ^ ^'* 



'O 



ENAME; RESETS TWO PTRS TO flCZBUE 
* AND CHECKS FOR FILENAME. 







ENTRY 

CLR MCZGET(R14) 



CLR MCZPUT(R14) ! RESET BUFFER 

LDA R10,R12(#GSTNXT) 
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300A 


0000* 










000C 


1FA0 


CALL 


0R10 


! SKIP CMD ARG 


; 


000E 


0A09 


C?B 


RL0,#'A ' 






0010 


4111 










0012 


E711 


JR 


C,DUN 






0014 


0A08 


C?B 


RL0,#'Z'^1 






0016 


5B5B 










0018 


EE0E 


JR 


NC ,DUN 


! 1ST CRR IN :a 


. .Z ) ! 


001A 


76CA 


LDA 


R10,GETNXT(R12) 




001C 


0000* 










001E 


1FA0 


CALL 


0R10 


! SKIP TO NEXT 


ARG ! 


002? 


E607 


JR 


Z,NO ADR 


! NC NEXT ARG I 




0022 


76CA 


LDA 


R10,GETADR(R12) 




0024 


0000* 










0026 


1FA0 


CALL 


0R10 


! GET USER SPECIFIED 1 










! ADDRESS ! 




0028 


A13B 


LD 


R11,R3 


I SAVE USSR ADR 


1 


002 A 


6EE3 


LD 


ADR_STR(R14) 


,R3 




002C 


0344 










002E 


9E08 


RET 












NO ADR: 








0030 


210B 


LD 


Rll,ff%FFFE 


! SIGNAL TO USE 


MCZ ! 


0032 


FFFE 


















! ADDRESS ! 




0034 


9E08 


RET 












BUN: 








0036 


8D98 


CLR 


R9 






0038 


34CA 


LDA 


R10,R12(#EROR) 




003A 


0000* 










003C 


1EA8 


JP 


0R10 


! ERROR, RTN TO 


EXEC ! 


003S 




END FNAME 
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GLOB “L 



003F 



CMLPAS PROCEEURE 

f %■♦ %<# • x*4* V'' V^ V^ 

T ^1^ ^1** *Tf* **t^ ^f* ^1* ^f* ♦*• 



5|! 







* CULPAS; 


LOAD CMD PASSING MECHANISM - 






5!s 


SENDS 'B; ' PLUS CONS CMD - 






- LINE TO 


MCZ AND CKS RESPONSES FOR - 






- GOOD Z80 PROGRAM LOAD. - 

%X^ Hi# 

#i% 






- REG USE 


: RETURN NZ IF Z80 LOADED 








Z IF NOT * 














SjS ^ 5|5 3p 


%i<i ^1# hI#h4# >V 1 

#1% ^|H "T* or or " 






ENTRY 




003E 


67E5 


BIT 


MFLAGS(R14) ,#ESC ! CK FOR ESCAPE 


004:0 


031C 






0042 


E602 


JR 


Z.GCMD 


0044 


8D41 


SETELG 


Z 


0046 


9E08 


RET 








GCMD : 




0048 


C242 


LDB 


RH2,#'B' 


004 A 


CA3B 


LDB 


RL2,#^• ' 


004C 


6FE2 


LD 


0UT3UF(R14) ,R2 ! LOAD INIT 'B; 


004E 


0080 












! FOR BRIEF MODE f 


0050 


76E2 


LDA 


R2,0UTBUF(R14 ) 


0052 


0080 






0054 


A921 


INC 


R2,#2 


0056 


76E1 


LDA 


Rl, INTBUF(R14) 


0058 


0000 






005A 


2100 


LD 


?0,#%40 ! LD CMD IN OUTBUF ! 


005C 


0040 






005E 


BBll 


LDIR 


0R2,9R1 ,R0 


0060 


0020 






0062 


76E1 


LDA 


Rl ,0UTBUF(R14) 


0064 


0080 






0066 


0101 


ADD 


Rl ,#%80 


0068 


0080 






006A 


6EE1 


LD 


0UTPTR(R14) ,R1 


006C 


0306 






006E 


rEB6 


CALR 


OUTSTM ! OUTPUT BUFFER ! 


0070 


BFE7 


CALR 


SKIPLN ! SKI? MCZ ECHO ! 


0072 


DFD4 


CALR 


MCZCOM ! WAIT RESPONSE ! 


0074 


0A09 


CPB 


RL1,#'B" 


0076 


4242 






0078 


EE02 


JF. 


NZ.LDSTAT 


007A 


deec 


CALR 


SKIPLN I SKIP MCZ ECHO ! 
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007C 


DFD9 


CALR 


MCZCOM ! aAIT RESPONSE ! 






! VERIFY 


LOAD STATUS ! 






LDST AT : 




007S 


0A09 


CPB 


RLl,ff'9' ! TEST LEGAL I 


0080 


3939 






0082 


F60E 


JR 


Z, RECACK ! ACKNOWLEDGEMENTS 


0084 


0A09 


CPB 


RL1,#'0' 


0086 


3030 






0088 


E60B 


JR 


Z. RECACK ! REC GOOD ACK ! 


008A 


0A09 


CPB 


RL1,#'7' 


008C 


3737 






008E 


E608 


JR 


Z. RECACK 






! NO ACKNOWLEDCEMENTS RECEIVED ! 






ERMSG: 




0090 


DFD9 


C AL? 


RECMSG ! GET MCZ MSG ! 


0092 


34CA 


LDA 


R10,R12(#SNDCHR) 


0094 


0000* 






0096 


1FS0 


CALL 


OR 10 ! SEND TO CONS ! 


0096 


0A08 


CPB 


RL0,#LF 


009A 


0A0A 






009C 


9E06 


RET 


Z ! DONE ! 


009E 


ESF8 


Jn 


SFMSG 






1 ACKNOWLEDGE RECEIVED ! 






RECACK: 




00A0 


8D43 


RESFLG Z ! RETURN NZ ! 


00A2 


9E08 


RET 




00A4 




END CMDPAS 






GLOBAL 








SKPB 


LABEL 


00 A4 




SKIPLN 


PFOCEDUP.E 






J ajs 2{< sjtsjc 3|; s;? ^ 5;^ 5|; 3js a;; s{< 5^ 5|; 






* SKIPLN: SKIP RECEIVED LINE FROM * 






❖ 


MCZ; RETURN FIRST CHAR OF - 






'»*» 


NEXT LINE. - 






* REG 


USE: RETURN RLl = 1ST CHR - 






'C 


AND NZ I? ESC - 








^lU %W 1 

#p ^p^% ^ rp ^p ^p #p #1^ ^p #p#p #p ^p #p ^p ^p #p ^p f 






ENTRY 




00A4 


DFE3 


CALR 


RECMSG ! SKI? OVER LINE ! 


00A6 


0A08 


CPB 


RL0,#CR ! THRU CR,L7 ! 


00A8 


0D0D 






00 •' A 


EEFC 


JR 


NZ .SKIPLN 
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SKPB: 



00AC 

C0AE 


2101 

3000 


LD 

! MAIN LOO? 
LOOPl: 


R1 ,#%3000 
FOR RECEIVING 


! DELAY FACTOR ! 
CHAR ! 


00B0 

00B2 


61E0 

0312 


LD 


R0,MCZGET(R14) 




00B4 

00B6 


4BE0 

0310 


CP 


R0 ,MCZPUT(R14) 


! TEST FOR REC CHR 


00BS 


EE03 


JR 


NZ.RECHF 


1 YES ! 


00BA 


AB10 


DEC 


R1 ,#1 


! NO, WAIT AWHILE ! 


C03C 


FEF9 


JR 


NZ , LOOPl 




00EE 


9E06 


RET 
RECHR : 


Z 


! FORCED EOL ! 


00C0 


DFFB 


CALR 


MCZCOM 




00C2 

00C4 


0A09 

2020 


CP3 


RLl,#' ' 


! CK 1ST=PRNT CHR ! 


00C6 


9E0D 


RET 


PL 




00C8 


DFF5 


CALR 


RECMSG 




00CA 

00CC 


E8F0 


JR 

END SKIPLN 


SKP3 




00CC 




MCZCOM PROCEDURE 





n» •'♦* ^ *¥* '•'* -*1“ T» *’ 

*5JC 



^ ?|% ^1% 



* MCZCOM: LOOPS WAITIN'G FOR RECEIVE - 

=<' CHAR FROM MCZ BY SEEING IF * 

* MCZBUF GETS CHAR. DOES 

* ADVANCE POINTER. - 

« ❖ 

REG USE: RETURN RLl = CHR - 

tju 5*^ 



*V ^ «*•» <»•» >v V.» %♦» »•.» 

»|% ..(«> •y* »|* 



'I' 'i* «¥* 'I* 



5,t >Jj Jjc ^ 



f 



ENTRY 



00CC 


61E0 


LD 


R0 ,MCZGET(R14) ! 


CHECK MCZBUF ( 


00CE 


0312 








00D0 


4BE0 


CP 


R0,MCZPUT(R14) ! 


POINTERS ! 


00D2 


0310 








00D4 


E6F3 


JR 


Z. MCZCOM ! WAIT 


I 


00D6 


34 C A. 


LDA 


R10,R12(#GMCZAD) 




00D8 


0000* 








00DA 


1FA0 


CALL 


GR10 ! GET 


CHAR FROM 3UF ! 


00DC 


2029 


LD3 


RL1,0R2 




00DF. 


9E08 


RET 






00E0 




END MCZCOM 
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001^0 
00E2 
00 E4 
00E6 
00E8 
00EA 
00EC 
00EE 
00E0 
00E2 
00E4 
00F6 
00FS 



00F8 



00F8 
00 FA 
00FC 
00FE 
0100 
0102 



0104 

0106 



PECMSG PROCEDURE 

%A^ %0 vi# 

^1% ^1% 4^<* 



•il Jji 






* HECMSG: LOOPS WAITING FOR PEC CHB 

- FROM MCZ. GETS CHAR AND - 

* DO NOT ADVANCE BU? PTR. - 

=<s 



- REG USE 

5^ 

'»*' *•• V* «i*» • '•» 

^ ^ *Y* 'T -r -n n' V -r 





ENTRY 


61E0 


LD 


0312 




4BE0 


CP 


0310 




E6FB 


J R 


34CA 


LDA 


0000* 




1FA0 


C ’LL 


6FS0 


LD 


0312 




2023 


LD3 


9E08 


RET 



: RETURNS RL0 = CHR * 

'r 

3jc :r|s 5|: jji :;c 3;r 5^: 5,*s :{: ?{c ^ s;« 5{; s;s 5jc ?;i 3,"^ :;t :j: 5^ sis sjc 5,*o;c I 

R0 ,MCZGET(R14) 

R0 ,MCZPUT(R14) ! C5 FOE ?EC ! 

Z. RECMSG ! WAIT ! 

H10,R12(WGMCZAD) 

0R10 ! GET 1ST CHAR ! 

MCZGET(R14) ,R0 ! RESTORE PTR I 

RL0.0R2 ! RTN CHAR ! 



END RECMSG 



GLOBAL 

OUTSTM LABEL 

OUTLNE PROCEDURE 



WU w# WU 

^1* ^1% #g% #1% ^1% #1^ ^1% 0^\ #1* •*!% #1^ >1% 



* OUTLNE: OUTPUTS A LINS OF CHAR FROM - 
« OUTBUF TO MCZ WITH CR AT '‘■' 
- END. * 



* OUTSTM: OUTPUTS A LINS OF CHAR W/CR * 

« -r 





^1% 

ENTRY 


yu yu y> %v y^ y^ y^ y#* 

#1^ #1'% ^1% 


**» «JU **• t 

■V***' '•» 'r •!(• n- -r* 'J* n* '1* » 


61E2 

0306 


LD 


R2 ,0UTPTR(R14) 




0C25 

0D0D 


LDB 


0R2,#CR 


! STORE CR IN 3UF 


69E0 

0306 


INC 


0UTPTR(R14) ,#1 


! INC PTR ! 



! NO CR ENTRY POINT ! 

OUTSTM : 

76E1 LDA Rl,OUTBUF(R14) 

0080 



! MAIN LOOP ! 
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OVaAOM : 



010S 


2013 


LDB 


RL0,0fil 




010A 


A910 


IMG 


R1 




010C 


340 \ 


LDA 


R10,R12(^SNDMCZ> 


0i0r 


0000* 








0110 


1FA0 


CALL 


0R10 ! 


SND CHR TO f^CZ ! 


0112 


E603 


JR 


Z, FINIS 




0114 


4BE1 


CP 


R1 ,0UTPTR(R14) 




0116 


0306 








0118 


E7E7 


JR 


C.OVRAGN ! 


CK IF BJF EMPTY ! 






! FINISHED, 


RESET 0UTPTR(R14) AND BLANK OUTEUF 






FINIS: 






011A 


76E2 


LDA 


R2,0UTBUF(R14) 


! RESET POINTER ! 


011C 


0080 








01 IE 


6FE2 


LD 


OUTPTH(R14) ,R2 




0120 


0306 








0122 


2100 


LD 


R0 ,#0UTSIZ/2 




0124 


0040 








0126 


A300 


DEC 


R0,«1 ! 


! SET COUNT ! 


3128 


4DE5 


LD 


0UTBUF(R14) 


' ! LOAD COUNT f 


012A 


0080 








0120 


2020 








012E 


76E2 


LDA 


K2 ,0UTBUF(R14) 




0130 


0080 








0132 


^21 


LD 


R1 ,R2 




0134 


A911 


INC 


HI ,#2 




0136 


BB21 


LDIR 


0R1,@R2,R0 ! 


! CLR BUFFER ! 


0138 


0010 








013A 


9E08 


RET 






013C 




END OUTLNS 
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013C 



313C 

013E 

014:0 

3142 

0144 



0146 

014£ 

014A 

014C 

0143 

0150 

0152 

0154 

0156 

0158 

015A 





ABORTM 


LABEL 




'lODPAK 


LABEL 




BADPAK 

j nJ Jj? Sji 


PROCEDURE 

*J0 




* EADPAK: 


SENDS RESEND SIGNAL {' 7 ') - 








TO f^CZ FOR BAD CKSUM OR REG * 




v>« 




NON-ASCII CHF. - 




* ABORTM: 


SENDS ABORT SIGNAL ('9') - 








aHEN USER SELECTED. - 




* GOEPAK: 


SENDS ACK SIGNAL {'id') FOR - 




❖ 

❖ 




RECEIPT OF GOOD PACKET. - 




5*c y* j'* jjj j|j jiu 

ENTRY 


5,i *,S 


\*0 ^0 s.^0 ^^0 vt# %X0 %*0 ^^0 H,*0 %*r %V i 

#1^ 0f% #1^ #1^ <1^ ^1^ 0^ ^1% 1 


CS37 


LDB 




RL0,#'7' ! LD RESEND SIG ! 


3803 


JR 




OUTALL 




ABORTM; 






C839 


LDB 




RL0,#'9' ! LD ABORT SIG ! 


E801 


JR 




OUTALL 




GODPAK: 






C830 


LDB 




RL0,#'0' ! LD RFC OK SIG ! 




OUTALL: 






6338 

0080 


LDB 




OUTBUF(R14) ,RL0 


76ED 

0080 


LDA 




R13,0UTBUF(R14) 


A9D0 


INC 




R13,#l 


633D 


LD 




0UTPTR(R14) ,R13 


0306 

D023 


CALR 




OUTLNE ! S^ND MCZ SYSTEM 


D05A 


CALR 




SKIPLN ! SKI? ECHO ! 


9308 


R3T 








END BADPAK 
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TtLOB “L 






315“ 




GETACK PROCEDURE 

1 

I •'l' ^1^ 


%*0 %<« «l,r %i# 

<^1% #1^ 






* GETACK: 


RECEIVE 


AMD INTERPRET ACK * 






V 


FROM MCZ 


. GOOD ACK = '0" '•' 










BAD ACK = ' 7 ' - 






%<« 




ABORT = ' 9 ' - 

2># 






* REG USE 


: RETURN 


Z,NC IE GOOD ACK - 










NZ.NC IE BAD ACK - 










NZ,C IE ABORT * 

'r 






^1% 

ENTRY 


•|C 5,» 5|* 5|* 5(C 5^» 


«J<» <»•« «l# %V %,*» *U «•« »J^ «■><• 1 

»,» »,» •)» ^4» 1 


315A 


D048 


CALR 


^^CZC0M 


! GET CHR ! 


015C 


0A09 


C?3 


RL1,#'0' 


! CK FOR ACK » 


015F 


3030 








0160 


EE04 


JP 


NZ,N“CK 


! NO ! 


0162 


T060 


CALR 


SKIPLN 


! YES, RSC ACK ! 


0164 


SD41 


SETELG 


Z 




0166 


8D83 


RESELG 


C 




016S 


9Z08 


RET 










! CK EOR '7 
NACK; 


' “ND ' 9 ' 


MON-ACKNO'-VLSDGEUENTS ! 


016A 


0A09 


CP3 


RL1,#'7' 


! CK FOR RESEND ! 


^^160 


3737 








016F 


EE04 


JR 


NZ, “BRT 


! NO ! 


0170 


D067 


CALR 


SKIPLN 




^172 


SD43 


FESELG 


Z 




3174 


8D83 


RESELG 


C 




3176 


9E09 


RET 










! CHECK FOR 
ABRT: 


ABORT ! 




0179 


0A09 


CP3 


RL1,#'9' 




017“ 


3939 








317C 


F602 


JR 


Z. ENDIT 


! YES, ABORT. . . ! 


017E 


E050 


CALR 


RECMSG 


! GET ANOTHER CHR 


0180 


TrgiTf 


JR 


GETACK 


! TRY AGAIN. ... ! 






ENDIT : 






0182 


P070 


CALR 


SKIPLN 




0184 


9D43 


RESELG 


Z 




0186 


6D81 


SETELG 


C 




0188 


9E09 


RET 






018“ 




END CxETACK 
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318A 



'" 18 ? 

318C 

0185 

0190 

0192 

0194 

V0196 



019P 
019A 
019C 
0195 
01A0 
01 '2 
01A4 



01?6 

01A9 

(716 5 

01 AC 
01A5 



01B0 

01B2 

31B4 

0136 

01B8 

01BA 

013C 

01B5 

01C0 





LINRCT PROCEDURE 




t < 

I #1% ^1^ #1% 4P|^ V|% ^1% . 


k'# ki« ki« *v «•< V'' V' •*<« y<» yu »•<« kt« y« y« y» <ju »•« 

*** *1* *** *1^ ^C* 




* LIMRCT 


: RECEIVES LINE OF CHAR ^ROM - 






N’CZ AFTER RECEIPT OF '/', - 




*r- 


AND STCR'^S IN INTBUF, ADDING- 






CR AT END AND FILTERING OUT * 




5i* 


CONTROL CHARACTERS. (<20E) - 




❖ 


(TRUNCATES AFTER 80 CHAR) * 

jJ; 




VU %*.* WU »>*^ **« ’ 

. 






ENTRY 






! WAIT FOR 


ASCII / ! 


3056 


C ?L^ 


RECMSG 


0A08 


CPB 


RL0, # V' 


2525 






F5T?C 


JR 


NZ, LINRCT ! WAIT ! 




! E5GIM STORING CHARACTERS ! 


0654 


LDA 


R4, INTBUF(R14) 








CB50 


LDB 


RL3,#80 !SET LINE LENGTH ! 




! STORE CHAR IN INTBUF ! 




LOPSTR : 




D05D 


CALR 


RECMSG ? GET CHAR ! 


2548 


LDB 


9R4.RL0 ! STORE \ 


^^(7S 


CPB 


RL0,«CR ! CK FOR END ! 


0D0D 






5502 


JR 


NZ .SKPSOM ! GOT CHAR . . ! 


5070 


CAL' 


SKPB 


9508 


RET 


/ 




ICONTROL C 


EAR FILTERED AND DEC LINE COUNTER 




SKPSOM: 




'^A08 


CPB 


RL0,#' ' 


2020 






5756 


JR 


C. LOPSTR 


A 940 


INC 


R4,#l ! GOOD CHAR ! 


530C 


53JNZ 


RL3, LOPSTR ! DEC COUNT ! 




ITRUNC ’TE, 


TOO MANY CHAR ! 




LOPOVR: 




5069 


CALR 


RECMSG 


0A0S 


CPB 


RL0,#CR ! LOOK FOR CR ! 


050D 






SE7 C 


JR 


NZ , LOPOVR 


7655 


LD? 


R13, INTBUF(R14) 


0000 






0105 


ADD 


R13,#80 


^7050 






2558 


LDB 


UR13.RL0 
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01 C2 9E09 




RET 






01C4 


END 


LINRCT 






01 C4 


UN? 

1 *[i 


ACE PROCEDURE 

"*# %•# »JU %v ^u 

^1% ^ « ^1% >>j% r*|* #j% ^1% #1% ^1% #1% ^1% #1% ^ #1% #1% ^1% #1% 


^*» o# »v 




5tt 


UNPACK: 


UNPACKS RECEIVED PACKETS 






»»-. 

n' 


- 


EROM ^^CZ IN IMT3UF AND 


•X. 




V 




LOADS IN SPECIFIED MEf^ORY 


•J, 








AREA. ASCII CHAR ARE CON- 


a# 

n* 




%*» 




VERTED TO HEX VALUES. 


%/* 

•V“ 

«A> 



# FIG USE: INPUT RH3 = #BYTE DATA 

%*^ %V 

#1% ^1* #1% ^1% ^1^ ^1^ ^|*» ^1% ^1% ^1% ^1% ^1% ^|S ^1% #|« «|% ^l'^ ^1 » ^1% 



0104 


A03C 


ENTRY 

LDE 


RL4,RH3 ! SAVE COUNT ! 


01C6 


PFDF 


CALR 


CONVAD ! CONV START ADR ! 


01CS 


0P0P 


! CHErK FOR 
C? 


USE? ENTERED ADDP FOR LOAD ! 
Rll ,#%FFEE 


01CA 

01CC 


FFFF 

F601 


J^ 


Z,USE h’CZADR 


01 CF 


A 131 


LD 


Rl.Rll ! USER SPECIFIED ! 


01D0 


76E2 


USE MCZADR: 
EDA 


R2, INTBUF(R14) 


01D2 

'^1D4 


0000 

«927 


I NC 


R2,#3 


01D6 


DFF8 


CANDS: 

CALR 


TRNHEX ! CONVERT 2-ASClI CHR 


01D8 


2E13 


LD3 


0P1,PL0 ! STOFE IN MEM ! 


01DA 


A910 


I NC 


R1 ,#1 


01DC 


FC04 


DP.JNZ 


RL4, CANDS ! CONV AND STORE ALL 


01DE 


0P03 


! UPDA'^E USER SPECIFIED ADDRESS ! 
C? R11,#%EEFE 


01F0 
01 E2 


FFFE 

E601 


JR 


Z,NO update ! USE MCZ ADR ! 


01E4 


All 3 


LD 


Rll.Rl ! UPDATE USSR ADR ! 


01E6 


9F0S 


NO UPD"'TE: 
RET 




01S8 




END UNPACK 
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31F.8 



TRNHFX PROCEDURE 

%l# %*« %*^ «1# %l^ «.!# %iif %l^ %l^ %*# 

»|-* ^1% 3,11 7|4 #1'* ^1% #1% ^,% 3|« ■»!% #f» ?|% 



* TRNKEX: CONVERTS TWO ASCII CFAK FRM =i' 

* INT3UE TO TWO 4 -BIT HEX # * 

* AND ADD TO CKSUM. - 



* REG USE: INPUT R2 = PTR TO 1ST CHR - 

- RL3= CSSUM ACCUM * 

- RETURN R2 = UPDATE PTR - 

- RL3= UPDATED ACCUM - 

'■' PL0= HEX VALUE * 

- AND C IF NON-ASCII - 

* NC IF ALL GOOD * 

%v y ^ yp y** yu y# y# y.# *ju % v "^V yu •A# V# I 

#1^ *Tr» >P 3|^ #1^ 3|^ 3|% #1% ^1% ^1% #1% >y% ^1% 3^ 3|« 3^ | 







ENTRY 




'71E8 


DFF6 


C«LE 


ATOHEX : CONVERT 1ST CHR 


01EA 


9F07 


RET 


C 


01EC 


208S 


ADDB 


RL3.RL0 ! ADD TO CKSUM ! 


01FE 


P309 


SLA 


R0,#12 ! MOVE TO H NIBBLE 


01F0 


000C 






01F2 


DFFB 


CALR 


ATOHEX ! CONVERT 2ND CHR 


?1F4 


9E07 


RET 


C 


01F6 


80SB 


ADDB 


RL3.RL0 


0lFe 


8408 


ORB 


RL0,RH0 ! COMBINE NIBBLES 


01FA 


8D83 


RES FLG 


C 


01FC 


9E08 


RET 




01FE 




END TRNHEX 




01FE 




ATOHFX PROCEDURE 






• •Ji' ••'« 

1 ^ 'TT ^ 1-* '1'* ^ 


mAf yu y^ yu yu y# yu yu yu yu y#yy y« yu y« y^ y« yu yu yu yu yu y^ *ju 

3p #p ^p^p ^p #p ^^3p #p 3p #p #p #p #p 3p ^p ^p rp ^p 

y« 






« ATOHEX: 


CONVERTS ONE ASCII CHAR TO - 






'r* 


4-BIT HEX NIBBLE. - 






- H5G USF 


n' 

: INPUT R2 = PTR TO CHR - 






:;s 


RETURN R2 = PTR + 1 * 








RL0= HEX NIBBLE * 






y^ yy y^ y^ y^y« 
^1% ^1% 


«!<• %>« <JU »t* «iL# «A* «JU *Jk« %(« %Jim *A* 1 

«P «r> ^ ri". ^ <r* <r* ^ ^ <T> n' ^ ^ i 






ENTRY 




01FE 


2028 


LDB 


PL0.0R2 


0200 


A 920 


INC 


R2,#l ! INC PTR ! 


0202 


34 C A 


LDA 


R10,R12(#CONVERT) 


0204 


0000« 






0206 


1FA0 


CALL 


0E10 


020S 


9E08 


RET 




020 a 




END ATCHEX 
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020A 




CONVAD PROC 


SDURS 






t *JU ^ o. -u sj« . 1 . 

1 


5 *> *••» %j|# %Ji^ 0# %l^ 

^ #1% #1^ #1% # 1 % #p #p #1^ #1% 5 p 






- CO MV AD; 


CONVERTS STARTING ADDRESS * 






..»- 


OF PACKET DATA TO HEX U. 






n- 








’i' PEG USE 


; RETURN R1 = ADDRESS (HEX) - 






jjc ;{c j;t 5 |c 5;^ 


s;«;;j;i :!s^; ;;;:!£ s:« Jj: :|i JjtsS 5|« s)::;; sjt s;s :? « s^ j;s s|< ^si^sjjs J 






ENTRY 




320A 


76E2 


LDA 


R2,INTBUF(R14 ) 


020C 


0000 






020E 


D014 


CALr 


TRNHEX 


0210 


A0«1 


LDB 


RH1.RL0 ! STORE 1ST BYTE 


7212 


D016 


CALK 


TRNHEX 


0214 


4089 


LDB 


RL1,RL0 ! STORE 2ND BYTE 


0216 


9E0S 


RET 




0218 




END CONVAD 




0218 




CHKPAK PROCEDURE 

f «V ^41 %Ki# V# %*# «*.* 

1 #|*% #1% #|> #1^ >1% #1^ #1% #1% #|<» #|« >1% # 1 % #1% #1% 






CHKPAK: CK RECEIVED MCZ PAC CXSU^' * 

AGAIMST accumulated HEX * 

VALUE CSSUM AFTER ASCII-TC- 
HEX CONVERSION. - 



’i' REG USE: RETURN 






RH3 = BYTE COUNT 
AND C IF BAD OR 
NON-ASCII. 



!{S 



«A« **• «l« WU «'« *A» «A> «A* V' «iV '>*' «Sr **« f 



ENTRY 



0213 


76E2 


LDA 


R2, INTBUF(R14) 




021A 


0000 








321C 


C303 


LDB 


RH3,#3 




021E 


DFF9 


CALR 


CHKSUM ! 


CK 1ST CKSUM ! 


0220 


9E07 


R ZT 


C ! 


BAD CK I 


0222 


8C34 


TESTS 


RH3 




0224 


9E06 


RET 


Z ! 


NO DATA ! 


0226 


93F3 


PUSH 


0R15.R3 ! 


SAVE BYTE COUNT 


0229 


DFFE 


CALF 


CHKSUM ! 


CK 2ND CKSUM ! 


022A 


97F3 


POP 


R3,0R15 




022 c 


9E08 


RET 






322E 




END CHKPAK 
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(^22? 



CHSSUI^ PROCEDURE 



tjf «l« aj« «l« %l^ »*» «V ^■» »'» *'■» »'■» »*•» *V *'» »*•* «|V 

»r» -r n' '»' 'I* '(* 't' •’*' 'f' 'i* '•' *^' 'I' 'I' 'C n' n' 'i* 'i' '»' ^t' 'i* 'i' 'i'* 'r 't' •>■* ^ n<» *,«. ;,C 

« 

5,t 



* 



* 



»!« 



CHKSUM: CONVERTS ALL PEC ASCII CPR 
IN PAC TO HEX AND ACCUfi NEW 
CKSUM. CO^^.PARE CXSUf^S AND 
REPORT DIFFERENCES. 



HFG USF: INPUT R2 = PTR TO PAC 

?H3= # CHR PAIRS 
RETURN RE3= BYTE COUNT 
RL3= NEW CKSUM 
RH3= REC CKSUM 
AND C IF BAD OR 
NON-ASCII REC 







*iV 

^1% #1^ ^1^ #i« ^i« «*|^ 


»*» 


«># *A« «V 

'I' '1' •'!» '1 


<J4* «JU f 

i> ^1% «>|> #1% 1 






ENTRY 








022E 


SCE8 


CLRE 


RL3 


! 


RESET CKSUM ! 


0230 


D025 


AB:CALR 


TRNHEX 


f 


CONVERT PAIRS ! 


0232 


9E07 


RET 


C 






0234 


F303 


DBJNZ 


RH3.AB 


f 


CONTINUE ! 


0236 


A083 


LDB 


RH3.RL0 






0238 


93F3 


PUSH 


0R15,R3 


j 


save BYTE CNT ! 


023A 


D02A 


CALR 


TRNHEX 


i 


CONVERT NEXT TWO ! 


023C 


97F3 


POP 


R3 ,0R15 






023E 


9F07 


RET 


C 






0240 


SABS 


CPB 


RL0.RL3 


! 


COMPARE CKSUMS ! 


0242 


9E06 


RET 


Z 


f 


GOOD CK. . . ! 


0244 


S-DSl 


S^TFLG 


C 


f 


BAD CKSUM ! 


0246 


9E08 


RET 








0248 




END CHKSUM 
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C^2i:8 



0248 

024A 

024C 

024E 

0250 

0252 

0254 

0256 

0258 

025A 

025C 

025E 

0260 

0262 

0264 

0266 

0268 

026A 

026C 

026E 

0270 

0272 



GLOBAL 

LOADPL PPOCEDUEE 



«;« ou . 



LOADFL: DECEIVES PACKET FROM IM 

- FOLLOWING FORMAT: * 



- <ADRXCMr. <CKS1XDTA> . . .<DTAXCKS2> - 
* * 



»DH = START ASR IN Z8000 MEM 

* CNT = # DATA WORDS 

* CKS1= CSSUM OF <ADR> + <CNT> 

* ^DTA>..XDTA> = 30 DATA WORDS 

* CES2= CKSUM OP DATA HEX VALUES 



PROCEDURE VERIFIES CKSUMS BEFORE - 

- STORING DATA IN Z8000 MEM. PACKETS * 

- ARE ACK FOR WITH: ' 0 ' = GOOD - 

* ' 7 ' = FESSND * 

* ' 9 ' = ABORT * 

* IF REC '//' FROM MCZ . ECHOS WHAT - 

REC NEXT TO CONSOLE AND ABORT. - 

V -r 



»*•' *.*<%i* *ju «>« ^1# «ju »v <»•# %v *** I 

^1^ #1^ ^1% ^1^ •'l' #1^ ^1^ ^1^ ^1^ ^1^ I 



ENTRY 



D125 


CALR 


FNAME 


1 


CK FILENAME ! 


65E4 


SET 


MFLAGS (R14) 


,#LDMDE fSIGNAL LOAD 


03 1C 








'PROGRESS ! 


D109 


CALR 


CMDPAS 


! 


SND CMD TO MCZ ! 


9E06 


RET 


Z 


j 


Z80 PROG NO LOAD 




RECLOP: 








D065 


CALR 


LINRCT 


f 


GET packet ! 


76F2 


LD« 


R2,INTBUF(R14) 




0000 

2028 


LDE 


RL3,0R2 






0 A08 
2F2F 


CPB 


RL0,# V' 


j 


CK FOR '//' ! 


EE10 


JR 


NZ .CONTIN 


!NO, CONTINUE...! 


75E1 


LDA 


R1,0UTBUF(R14) 


!YES,! 


0080 

2103 

0020 


LD 


R3,#%20 






BB21 


LDIR 


0E1,0F.2,R3 


! ERROR MSG SETUP ! 


0310 










76E1 


LDA 


R1 ,0UTBUF(R14) 




0080 

0101 

0020 


ADD 


R1 ,#%29 
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(^274 6F^1 
0276 0306 



LD 



0UTPTR(R14) ,R1 !SST CUTPTR ! 



0278 


34 C A 


LD» 


R10.R12( 


027A 


000'Ti* 






027C 


1FA0 


CALL 


0R10 


027E 


9E08 


RET 








CONTI N: 




0260 


67S5 


BIT 


MFLAGS(R 


0232 


031C 






0284 


FE34 


JR 


NZ ,AET 


0286 


D038 


CAL? 


CHKPAK 


0288 


FF02 


J? 


MC .GDLD 


026 A 


D0A3 


CALR 


BADPAK 


028C 


E8F2 


JR 


RECLOP 



PBUFNC) 



) ,#ESC CK FOR ABORT ! 

! YES . “BORT. . . ! 

! CK CKSUMS ! 

! GOOD LOAD ! 

! SEND NON-ACK ! 

! TRY AGAIN ! 



028E 


8Cf(B 


0290 


8138 


0292 


SC 34 


0294 


EE28 


0296 


D0AA 


0298 


54E0 


029A 


0000 


029C 


76FD 


029E 


0080 


02A0 


010D 


02 A2 


000C 


02A4 


0309 


^2A6 


a A A ■' 


02A8 


S61D 


02AA 


0B0B 


02AC 


FFFE 


02AE 


F608 


02B0 


6FED 


02B2 


0306 


02E4: 


61S5 


02B6 


0344 


02BS 


76C A 


02BA 


0000=s 


02BC 


1FA0 


02BE 


E801 



! CHECK FOE 
GDLD : 

CLRB 

ADD 



TESTB 

JR 

C «LR 
LDL 

LDA 

ADD 



! CHECK FOR 
CP 

J? 

CP 

JR 

LD 

LD 

LDA 

CALL 

JR 

SAME ADR: 



L;ST packet IND PRINT <ENT i'DE> ! 
RL3 

Re,R3 ! ACCUM NUMBER BYTES I 
! OF TRANSFER ! 



?.H3 ! CK COUNT=0 ! 

NZ .STOR ! OK, BEGIN STR ! 

GODPAK ! SEND GOOD ACK ! 

F70,INT3UF(R14:) 

R13,0UTBUF(R14) 

R13,#%0C 



USER SPECIFIED ADDR ! 

R9 ,t*%kAkk 

Z.END_LOAD ! NO ECHO TO CONS ! 

R11,#%FFFE ! CK FOR LOAD ADR ! 

Z,SAME_ADR ! USE MCZ ADR ! 
CUTPTR(R14) ,R13 ! SET OUTBUF ADR ! 

H5, ADE_STR(R14) ! GET USE? ADR ! 

R10,CONVW(R12) 

OR10 ! CONVERT TO ASCII AND ! 

! AND STORE IN CUT^UF ! 

FIN BUF 
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1DD0 



LDL f3-i3,=p.r7 

FIN PUF: 



02C2 


3402 


LPA = 


R2,E^JTADR !LOAD ENTRY LABEL! 


F2C4 








02T6 


76F1 


LDA 


^1,0UTBUF(R14) 


02C8 


0080 






02C.ft 


2100 


LD 


R0,#6 


32CC 


0006 






02CF 


BB21 


LDIR 


0R1,OR2,R0 


02D'7' 


0010 






02D2 


76ED 


LDA 


R13,0UTBUF(R14) 


02D4 


0080 






02D6 


010D 


ADD 


R13,#%10 


02D6 


0010 






02FA 


6FEI) 


LD 


OUTPTR ^R14) ,R13 


02DG 


0306 






02D^ 


34CA 


LDA 


?10.?12(«?RNTBF) 


02F0 


0000- 






F2F2 


1F«0 


C 'LL 


OR10 ! PRINT MESSAGE ! 






END LOAD 


• 

• 


02F4 


9E08 


RET 








STOR: 




02E6 


D06F 


CALR 


CONVAD 


0228 


D0I)3 


CALR 


GCDPAK ! SEND ACK ! 


02E« 


D094 


CALP 


UNPACK ! UNPACK “ND STORE 


02EC 


E8B2 


JR 


RECLOP ! CONTINUE ! 






ABT: 




02EE 


3402 


LDA?. 


R2 ,EMSG 


02F0 


000A 






02F2 


34CA 


LDA 


R10,R12(#SNDMSG) 


02F4 


0000- 






02F6 


1FA0 


CALL 


@P10 ! SEND MESSAGE 1 


02F9 


D0rD 


CALR 


AEORTM ! SEND ABORT ! 


02FA 


9T^9 


RET 




02FC 




END LOADFL 






EMSG : 




02FC 


07 


3VAL 


7 


02FE 


2F41 


WVAL 


'/k' 


0300 


424F 


^v'VAL 


'BO ' 


0302 


5254 


WVAL 


'HT' 


0304 


0D 


BVAL 


%0D 






ENTADR: 




0306 


454E 


WVAL 


'EN ' 


0308 


5452 


WVAL 


'TR' 


030A 


5920 


WVAL 


'Y ' 



^^3ec 5C4? 
dZTi'Z 494E 
0310 5420 



VVAL 'PO 
'iVAL 'IN 
WVAL 'T 



FND SUPP0RT3 



APPENDIX L - BOOTSTRAP Program Listing 
A. BOOTSTRAP PROGRAM LISTING 
1. BOOTSTRAP MODULE 



Zfc000ASM 2.02 

LOG OBJ CODE STMT SOURCE STATEMENT 

1 BOOTSTRP MODULE 
$LIST0N $TTY 

CONSTANT 



RXR 


= 


2 




TXR 


= 


0 




PAR 


= 


7 




PORTAD 


= 


%FFD9 




PORTED 


= 


%FFE1 




PORTAC 


= 


%FFDB 




PORTBC 




%FFE3 




IDPORT ; 


j — 


%FFCB 




ICPCRT 


• — 
• 


^FFC9 




TCMD := 


%FFD2 




TDTA := 


%FFD0 




BUS LOCK ; 


. — cy 
* /o 


FFF9 




BUS'UNLOCK : 


=%FFFS 




VINTR 


= 


% (2)0001000000000000 




VIBIT 


= 


12 




ESCAPE 


= 


%1B 




MAX CPU 


= 


8 




BS 


= 


%08 




LINDEL 




%7F 




CR 


= 


%0D 




LF 


= 


%0A 




TXOFCH 


= 


%13 




TXONCE 


= 


%11 




INSIZ 




128 ! INTBUF SIZE 


j 


OUTSIZ 




128 ! OUTBUF SIZE 


J 


RESIZ 


■= 


256 ! RING BUFFER 


SIZ 


BIT POSITIONS 


IN MONITOR FLAG WORD ! 




TRPMDE 




0 




ISTOP 


= 


1 




OSTOP 


= 


2 
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SNDMrS 

3SC 

TXMSK 



3 

A 

5 

%6 



TYPE 

MESSAGE ARRAY f3 WORD] 

SWITCH ARRAY [2 WGRD] 

MEM_ARPAY ARRAY [32 WORD] 

CPU_ENTRY RECORD [ 

SIGNAL WORD 



CPU_ID 

MSG_BLK 

MEM_MAP 

I D_ ARRAY 
ENTRY ARRAY 



WORD 

MESSAGE 

MEM_ARRAY] 

ARRAY [MAX_CPU WORD] 

ARRAY [MAX_CPU CPU_ENTRY] 



INTERNAL 

^SECTION TABLE1_DATA 
$ABS 0 



0000 



CCN^IG_TA3LE RECORD [ 

RW_ PATTERN WORD 
CPU_NUM WORD 
NORM RW PAT WORD 



NORM CPU_CNT 
TABLS_LOCK 
CPU_CNT 
CPU_LIST 



WORD 

WORD 

WORD 

ENTRY ARRAY] 



^SECTION TABLE2_DATA 
^ABS 0 



0000 



MIN_CONFIG_TBL RECORD [ 
LOG_TO_?HYS 
CONE MEM MAP 



ID_ARRAY 
MEM_ ARRAY] 



0000 



$SECTION PSA_DATA 
$ABS 0 

PSA RECORD [ 

DATA_AREA WORD 
CODE_AREA WORD 

UNIMP INST SWITCH 



PRIV INST 

SYS_SALL 

SEG TRAP 

NMI~INT 

NVI_INT 

VEC_FCW 

VEC PC 



SWITCH 

SWITCH 

SWITCH 

SWITCH 

SWITCH 

WORD 

ARRAY [200 WORD] 
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1 



INTFP.NAL 

^SECTION DATA_DEC 
$ABS 0 



00(70 


INTBUF 


ARRAY 


’128 


BYTEl 


0080 


OUTBUF 


ARRAY 


'128 


BYTE] 


0100 


RNGBUF 


ARRAY 


'256 


BYTE] 


0200 


MCZBUE 


ARRAY 


"256 


BYTE] 


0300 


BUFADR 


WORD 




0302 


BUFSIZ 


WORD 






0304 


INTPTR 


WORD 






0306 


OUTPTR 


WORD 






0308 


NXTPTR 


WORD 






030A 


GETOUT 


WORD 






030C 


MCZPUT 


WORD 






030E 


MCZGET 


WORD 






0310 


MFL 'GS 


WORD 






0312 


RETRY 


WORD 






0314 


ADR STR 


WORD 






0316 


DWN A DP 


WORD 






0318 


START ADR WORD 







EXTERNAL 

LOAD_FILE PROCEDURE 

$SECTION BOOTSTRAP_PROC 
$RSL 0 



0000 



0000 340C 
0002 EEEC 



CL OB A L 
BOOTSTRAP 



PROCEDUR: 






> 1 ? 

❖ 



%A# %V % 

^ ^ ^ ^ ^ 7|% ^ ^ # 



INIT TEST: INITIALIZES niULTIPEO- 

CESSOR SYSTEM WITH A COMMON 
MEMORY MAP AND SYSTEM WIDE 
KNOWLEDGE OE EACH UNIQUE 
CPU id; LOADS LOCAL AND 
GLOBAL PORTIONS OE 0/S; 

AND TANSFERS CONTROL TO 
LOCAL PORTION. 



« 



^ «Y^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ * 

ENTRY 

LDA' R12, bootstrap ! SET NEW CODE_AREA ! 



! INITIALIZE SYSTEM CALL HANDLER IN PSA ! 
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0004 


?DA5 


LDCTL 


?10,PSAPOFF 






51006 


3403 


L3A Tt 


Rll, SYSTEM CALL 




005>B 


'^2 A 4 










000A 


76A1 


LDA 


HI, SYS CALL(R10) 




000C 


000C 










70(7T 


0D15 


LD 


OR1,«%4000 


! LOAD FCW FOR SC ! 




0010 


4000 










0012 


331B 


LD 


R1 (#2) ,R11 


! LOAD PC FOR SC ! 




0014 


0002 










0016 


3403 


LDAP 


R11,MEM_INT 






001S 


0382 










0014 


76 A 1 


LDA 


R1 ,VEC_PC (R10) 






001C 


0013 










0 01T 


3313 


LD 


R1 (#14 ) ,R11 


! LOAD MEM VIOLATION 


f 


0020 


000F 






! I NT HANDLER IN PSA 


f 






! INITIALIZ 


3 NORMAL STACK 


POINTER ! 




0022 


2103 


LD 


Rll,#%4500 






0024 


4500 










0026 


7D3F 


LDCTL 


NSP.Rll 










! MOVE CODE 


TO COMMON NORMAL /SYSTEM AREA ! 




0028 


2101 


LD 


R1 ,#%4100 


! NEW CODE LOCATION 


f 


002A 


4100 










002C 


3404 


LDAR 


R4 ,NORM_S CRIBS 


! START CF CODE ! 




0021i: 


001E 










0030 


3402 


L DAP- 


R2 ,GS3 


! END OF CODS ! 




0032 


0('72 


DO 








0034 


214D 


LD 


R13,0R4 






0036 


2F1D 


LD 


0R1,R13 






0038 


6342 


CP 


R2.R4 


! CK FOR END f 




003A 


3603 


JR 


Z,NXT SC3 






'^03C 


A 911 


INC 


HI ,#2 






003E 


A941 


INC 


R4,#2 






0040 


E8P9 


OD 




! CODE TRANSFERRED ! 








NXT SC3: 








0042 


2108 


LD 


R8,#%4100 






0044 


4100 










0046 


2103 


LD 


R3,#%4113 ! 


SET RTN ADR ! 




0048 


4113 










004A 


1380 


CALL 


(SR8 ! SCRIBE MEMORY ! 




004C 


E82D 


JR 


TEST_LOCK 
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‘ %f. 



« n"* <^"» 



«yC S{« 5i«. «f« 2|£ 5r ^ ^ 5,t ^ ^ ^ V ^ ^ ^ ^ •’{^ *c ^ ^ 



- N0?M_SC5I£E: SCFIEES MEMORY IN THE - 

NORMAL MODE USING SYSTEM CALL - 

* INSTRUCTION FOR BUS LOCKS .^ND - 

- MODE CHANGES. THIS CODE SECTION « 

* WILL BE EXECUTED FROM A COMMON * 

* ( MORMAL/SYSTEM) AREA OF MEMORY. « 






«A« 



wjf «JU ^ I 

«>,« »,•« ^ ^ I 



NORM SCRIBE; 



004S 


2104 


LD 


R4,#%1000 




0050 


1000 








0052 


7D4A 


LDCTL 


FC«,R4 ! CHG TO 


NORMAL MODE ! 


0054 


2101 


LD 


E1,#%AA55 ! NORMAL 


R/W PATTERN ! 


0056 


AA55 








0058 


2104 


LD 


R4,«%F800 ! TOP BLOCK ADDR ! 


005A 


F800 








005C 


8D98 


CLR 


R9 








CLEAR MEMORY NORMAL MODE 








DO 






005E 


6F41 


LD 


N0RM_RW_?AT(R4) ,R1 




0060 


0004 








0062 


6F49 


LD 


N0RM_CPU_CNT(R4) ,R9 


! CLEAR C?U_CNT 


0064 


0006 








0066 


0304 


SUB 


R4,#%0800 




0068 


0800 








006A 


E8F9 


OD 










! WAIT FOR 
VAIT3; 


OTHER CPU'S TO COMPLETE 


TASK ! 


006C 


2103 


LD 


R3,#%1000 




0 06E 


1000 








0070 


7D3A 


LDCTL 


FCW,P3 




0072 


2103 


LD 


R3,#50 




0074 


0032 


DO 






0076 


1904 


MULT 


RR4.#1 




0079 


0001 








0074 


«B30 


DEC 


R3 




007C 


E601 


JR 


Z.SCBE 




007E 


F9F3 


OD 












SCRIBE IN NORMAL MODE f 






SCBE: 






0080 


2104 


LD 


R4,#%F800 
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^082 


F800 


DO 








0084 


6148 




LD 


R8 ,NORM_RW_ 


PATC.4 ) 


0086 


0004 










0088 


°318 




C? 


RS.Rl 


! CK FOR R/W ! 


006A 


EE07 




JF 


NZ ,NO_RW 


! NO R/W ! 






’ CPU 


IDENTIFIES ACCESS 


TO THIS BLOCK ! 


008C 


7F01 




SC 


^*1 


! LOCK MULTIBUS ! 


008E 


6148 




LD 


R8 ,NORM_CPU 


_CNT:R4) * GET CPU_ 


0090 


0006 










0092 


?980 




INC 


RS.tfl 


! INCREMENT ! 


0094 


6F48 




LD 


NORM CPU CNT(F4),R8 


0096 


0006 










0098 


7F02 




SC 


#2 


! UNLOCK MULTIBUS ! 






NO_ 


RW : 




/ 


009A 


83D4 




CP 


R4.R13 ! 


CK FOR LAST BLK ! 


009C 


E603 




JR 


Z.TEFMN 


t FINISHED ! 


009E 


0304 




SUB 


R4,#%0800 




00A0 


0800 










00 «2 


’!'8F0 


OD 












TERMN : 








00A4 


7F03 


SC 




tf3 


! CHG TO SYSTEM MODE ! 






GSB: 








00A6 


9E08 


RET 







f Sjs 5^ SjJ 3|C 5{» 5^5 5{% 3{% 3{C 9^ 9^' )(% 5^ 9|« 9(C 9j% 5^ Jj» Sjt 5{C 9|C jJC 5{S Sj$ S}C 5|S «}« 3»C 3|w 

yfi ^ 

TEST_LOCK: RCUTIME TO GAIN ACCESS * 

* TO C0NFIG_TA3LE. - 

* 5 >! 

* REG USE: INPUT R7 = LOW GLOBAL MEM * 

5jS 3^« 

:Ji S;S55C3lC5{S5*t5;S9;csJt:^5{S5^5^:JC:<S^t2jC5;S5;j5;s:^^?;C5;S5;i9^:;«SfS5}C5;C5;S3;<i;<5;S3;S j;?5{«5;55'^5;« I 

TEST_LOCK: 

00 »8 7678 LDA R8 ,T A3LE_L0CK ( R7 ) ! LOCK ADR ! 

00 AA 0008 



00 AC DE8F 
?0AE FD03 



MAIN LOCK TESTING LOOP ! 

DO 

CALR TEST N_SET ! ACCESS CONFIG_TABLE ! 
JR PL,T3L_ACCESS ! GOT EXCLU. ACCESS ! 



0030 1904 
0032 0001 
00B4 E8F3 



DELAY BEFORE NEXT ATTEMPT ! 
MULT RR4,#1 



OD 
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* TBL_ACCE3S: ROUTINE TO DETERMINE - 

* DIRECTCR_CPU AND MEMBER CPU'S. - 

* ■ s:s 

TBL ACCESS : 



! CK IE OWN CPU NO. ! 



(^0B6 


76'^3 


LDA 


R3,CPU_CNT(R7) 




00 Be 


000 A 








00BA 


213E 


LD 


R14.0R3 




0GBC 


SB4E 


CP 


R14.R4 ! 


CK 


00BE 


F604 


JR 


Z,0WN_ID 




00C0 


4D75 


LD 


TABLE_L0CK^R7) 


,^0 


00C2 


-7008 








00C4 


0000 








00C6 


ESE0 


JR 


TEST_L0CK 








OWN ID: 






00C8 


0B0E 


CP 


R14,#0 ! 


CHE 


00CA 


0000 








00CC 


E601 


J^ 


Z, BOOTLOAD CPU 


1 


00C^ 


ESll 


JR 


MEMEER_CPU 


j 








3CCTL0AD CPU START 



! CHECK IE LOG_CPU 0? ! 

ES ! 

3 ! 

^ ^ ^ ^ ^ <Y* nr ^ 'T* 'm 'C ^ ^ 'TT <T* •t' 't' 



« 

5 ? 

4: 






B00TL04D_CPU; CPU ASSUMES ROLE AS 
INITIALIZATION COORDINATOR. 

CPU DETERMINES NUMBER OE CPU 
IN SYSTEM AND INITIALIZES THE 
CCNFIG_TAELE ACCORDINGLY. IT 
TEEN IDSNTIEIES ITSELF AND 
WAITS FOR MEMBER_CPU'S TO 
IDENTIFY themselves; AND THEM 
CONSOLIDATES C0NEIG_TA3LE DATA 
INTO SYSTEM TABLE fMIN_CONFIG_ 
TBL) . 



REG USE: INPUT R5 

P6 

R7 

R4 



NUMBER CPU'S - 
LOW LOCAL MEM - 
LOW GLOBAL MEM * 
LOG CPU NO. * 



20D0 4D75 



^ ^ %l# v>^ *X0 ^ ^ V ^ ^ I 

3^ ^3^ ^ ^ ^ ^ ^ ^ ^ ^ ^ O' ^ O' O' ^ 1 ' ^ O' ''I' I 

B00TL05D_C?U ; 

! LOAD CPU_CNT WITH NEXT L0G_CPU NUMBER ! 

LD CPU_CNT(R7) ,#1 ! LOAD L0G_CPU 1 1 
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c(?r2 


000A 






?0I)4 


0001 










! COMPLET 


E OWN CONFIG TABLE ENTRY ! 


'^?D6 


7673 


LD4 


?.3,CPU_LIST(R7) ! LOG_CPU 0 ! 


00D6 


000C 






00DA 


763E 


LEA 


R14,MEM_i'"AP(R3) 


00DC 


000 A 






00DE 


DF62 


CAL'. 


I^A?_MEMORY ! ENTER MEM MAP ! 






! UNLOCK 


CONFIG TABLE ! 


0?E0 


7673 


LEA 


R8,TABLE_L0CK(P7) ! LOCK «DR ! 


00S2 


0008 






00E4 


0DS5 


LB 


0R8,#0 ! CLEAR LOCK ! 


00E6 












! WAIT FOR ALL CPU'S TO IDENTIFY THEA^SELVES ! 


00E8 


7673 


LBA 


R8,CPU_CNT(R7) ! C?U_CNT ADR ! 


00E« 


000A 






00EC 


A. 159 


LD 


R9.R5 ! GET TOTAL PHYS CPU ? 


00EE 


D702 


CALR 


wait comp ! WAIT FOR ALL ! 


r0E0 


E83A 


JR 


CO MB IN 






1 ^ 


MEMBER CPU START ! 






1 nj* *V ^ 

T 'I- 'r» ^ 'I-* 'I* 'ir ^ -nr* 


ZQ OU ^1# 

#1% #|*yp ^|«i #1% ^1% #1% ^1% #1% #1^ ^1% ^ 






•'r* 

« MEt^B-EH CPU: IDENTIFIES ITSELF IN # 








CONFIG TABLE AND ENTERS MEM « 






'r* 


MAP. WAITS FOR DIRECTOR_CPU * 



TO SIGNAL TO CONTINUE. * 



- REG USE: INPUT R4 = LOG CPU NO. 









^ ^ ^ ^ 
^1^ ^1% #1^ 


•nr 

y,cj;s>;c3jc5{c j 






MEMBER CPU: 






00F2 


A14E 


LD 


R14,R4 


! SAVE LOG CPU NO. ! 


00F4 


767A 


LBA 


R10,CPU_ 


LIST(R7' f BASE OF ENTRY 


00F6 


^7000 








00F8 


8D28 


CLR 


R2 








DO 






00FA 


0102 


^DD 


R2 ,#74 


! DETERMINE BASE OF ! 


00 FC 


00 4A 








00FE 


ABE0 


DEC 


R14 


! ENTRY ! 


0100 


F601 


JR 


Z.CONT 




0102 


E8FB 


OD 










CONT : 






0104 


81 2 A 


ADD 


R10,P2 


! COMPUTE BASE ADR ! 


0106 


A1 A3 


LD 


R3,R10 
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! ENTER MEM ''^AP IN TABLE i^MTRY ! 



01 '^6 


76 A E 




LDA 


R14,MEM_N'AP(R10 


) ! MEM_M’P B^-SE 


01 eA 


000 A 










(71'7C 


DE79 




CALR 


MAP_MEMCRY 








f 


LOAB CPU CNT WITH NEXT LOG CPU NUMBER ! 


010S 


7670 




LBA 


R8,CPU_CNT(R7) 




C110 


^ 










0112 


2189 




LB 


R9.0R8 ! 


CPU COUNT ! 


0114 


A990 




INC 


R9 ! 


ABB ONE, ! 


0116 


2E89 




LD 


(??8,R9 ! 


ANB PUT PACK ! 






f 


UNLOCK 


CONF TABLE FOR OTH 


SR PROCESSORS ! 


0118 


7678 




LBA 


R8, TABLE L0CK(R7) 


011’ 


0008 










011C 


0D85 




LB 


01 8, #0 ! 


CLEAR LOCK ! 


311S 


0000 


1 


WAIT FO 


R SIGNAL TO PROCES 


B WITH BOOTLOAB ! 


0120 


76A8 




LBA 


R8,SIGNALfR10 ) 


! OWN SIGNAL ADR 


0122 


0000 




BO 






0124 


2182 




LB 


R2.0R8 ! 


TEST SIGNAL ! 


0126 


0B02 




CP 


R2 ,#1 




0128 


0001 










012A 


E601 




JR 


Z,BWN_LB 




012C 


E8FB 




OB 










DWN LB: 










f 


BOWN-LO^B P^OC LOCAL INTO 


LOCAL memory ! 


012E 


76A1 




LBA 


R1 ,MSG_BLK(R10) 


! OWN MSG_BLK ! 


0130 


0004 










0132 


2112 




LB 


R2.0R1 ! 


CURRENT COBE ABR ! 


0134 


3113 




LB 


R3,R1(#2) ! 


loc al LOAB ABR ! 


0136 


0002 










0138 


311E 




LB 


ai4,Rl(#4) ! 


NUMBER OF BYTES ! 


013A 


000 4 










013C 


BA21 




LBIRB 


0R3,0R2,R14 ! 


MOVE COBE ! 


013E 


0E30 














! 


CLEAR SIGNAL ! 




0140 


0L85 




LB 


0R8,#0 




0142 


0000 


f 


SIGNAL 


BIRSCTOR CPU THAT 


THIS CPU BONE ! 


0144 


TEBB 




CAL? 


TEST N SET ! 


ACCESS TO I 










1 


CONFIG TABLE ! 


0146 


7675 




LBA 


R14,CPU_CNT(R7) 




0148 


000A 
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014A 


21E9 


LD 


R9.0R14 


! LCG,_CPU NUMBER 


014C 


4 990 


I NC 


F9 




014E 


2FE9 


LD 


@R14,R9 


! INCREMENT ! 


0150 


767F 


LDA 


R14,TABLS_ 


L0CS;R7) 


0152 


0008 








0154 


0DE5 


LD 


0F14,#0 


! CLEAR LOCK ! 


0156 


0000 












! wait for 


SIGNAL TO T 


RANSFSR CONTROL ! 






DO 






0158 


2192 


LD 


R2 .0R8 


! TEST SIGNAL ! 


015A 


0B02 


CP 


R2 ,^1 




015C 


0001 








015E 


^601 


JR 


Z,TRN_CNTL 




0160 


E8F3 


OD 










TRN CNTL: 










! TRANSFER 


CONTROL TO 


0/S I 


0162 


2112 


LD 


E2 ,0R1 


! OWN MSG BLK ! 


0164 


1E28 


JP 


OR 2 


! START OF 0/S ! 






f :^c:JS5}C5;x;I: 


END OF MEMBER CPU «'«=«'* » 



*T* 'f' ^ *v *V' '(» o* “Y* *>* nr *T* ■Y* »> ■ 'T“ •T’ ^ '■f' •Y’ ^ ■nf *T* *■>* *Y *^'* ^ ^T" ^ ^ 'T" *Y“ '»*■ ?|» Jy 

«■• o> 

'I” 

« GLOBAL INITIALIZATION STAGE * 

'T 'P 

Jf ».l» «l« ••» %l^ %Xf «l« <JU k*i>af« «•««!» «*« •#!» %V «»#'*^.> »•* *J» «U «0 «JU «l« v<* «A»*V %*» «A« f 

*%■♦ <Tr 'r ^'i* 'i^ 'p ^ ^ 'p ^ 'p 'p 'P 'p •'p •*»• 'p <»i' •Y’ "P *T* 'T* 'p ^p 'p O' n'» *p 'p ••p 'P <'p 'p »p ^ 'p I 



COMBIN : 



^ ou ^ «A« ^ «*« «v >(« «>« ^ 

^ ^ n* •Y' ^ nr ^ n' ^ nr ^ 'p ‘T’ *T' ^p ^ ^p nr T* ^ 'V ^ ^ 



«x# w 

5 p np -T* »p V nr 'p ^ 



CONSOLIDATE CPU_ENTRT'S INTO TABLE - 

:^ci;:5lfi?p3^5nc:{c;;s5}c5t:s}s;^:;s;*cj;c5'^5;s?^:;c3{« 5;o^3;€5',r?t:3;s:;cy^5;c:^3{c^^5;c5;c5;:j;c:;sj{:^ f 



l CONSOLIDATE LOG 



0166 


A171 


LD 


R1 ,R7 


0168 


7671 


LDA 


R1 .CPU 


016A 


000C 






016C 


A159 


LD 


R9.R5 






DO 




016E 


0101 


ADD 


R1 ,#74 


0170 


004A 






0172 


AB90 


DEC 


R9 


0174 


E601 


JR 


Z.HA7S 


0176 


E£F3 


OD 








HAVE_ADP: 




0178 


76'^9 


LDA 


R9 .CPU 



CPU TO PHYS_ID IN TABLE ! 
_LIST(H7) ! Table entry base 

! ADR OE NEXT ENTRY ! 

_ADR 

! ADDRESS ! 

_LIST(R7) ! GET START OF ! 
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?17A 









! CPU 


ENTRY'S ! 


017C 


7692 


LDA 


R2 ,CPU_ID(R9) 






C17E 


0002 










t^l80 


A154 


LD 


?.4,^5 










DO 








0182 


212D 


LD 


xR13,0R2 ! STORE 


PHYS_ID 


0164 


2F1D 


LD 


GR1,R13 






0186 


A911 


INC 


R1 ,42 






0188 


0102 


4,DD 


F.2 ,#74 






018 A 


004A 










018C 


A340 


DEC 


R4 






!^18F 


0P04 


CP 


R4,#0 ! CK 


IF 


FINISHED 


0190 


0000 










0192 


F601 


JR 


Z,MEM_CONSOL 






0194 


ESF6 


OD 









! CONSOLIDATE ME^I MAP'S INTO MIN CONFIG TPL I 







MEM CONSOL: 




“ 




0196 


2104 


LD 


^4, #32 






0196 


0020 










019A 




LDA 


R9 ,CPU_LIST(R7) 






019C 


000C 










019E 


7692 


LDA 


E2 ,MEM_MAP(R9) ! 


LOG_CPU 0 ! 




01A0 


000A 














DO 








01 A2 


212D 


LD 


R13,0R2 ! COPY 


LOG CPU 0 VALUES 


01A4 


2F1D 


LD 


0R1 ,R13 






01A6 


A 911 


INC 


R1 .#2 






01 AS 


A 921 


INC 


R2 ,#2 






01 AA 


A 340 


DEC 


R4 






01AC 


E601 


JR 


Z,NXT_CPU ! GET 


NEXT LOG_C?U 


j 


01AE 


E8F9 


OD 












NXT CPU; 












! MAIN LOOP 


FOR CONSOLIDATION 


OF REMAINING 


MAPS 


01P0 


A15B 


LD 


R11,R5 






01B2 


AEB0 


DEC 


Rll,#l 






0134 


E61S 


JR 


Z . LL ! NO 


MORE MAPS TO 


DO ! 






DO 








0136 


210D 


LD 


R13,#32 






0138 


7020 










01BA 


A129 


LD 


R9,R2 






013C 


7692 


LDA 


R2 ,MEM_maP(R9 ) ! 


NEXT LOG_CPU 


1 


013E 


000 A 










01C0 


0301 


SUB 


Rl,#64 ! ADR NEW T3L MEM_MAP 


! 


01C2 


0040 
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DO 



?1C^ 


2123 


LD 


R3,GR2 ! NiW VALUES 1 




01C6 


2114 


LE 


R4.8R1 ! OPIG VALUE ! 




01C8 


S?34 


CPB 


?H4,RH3 ! COMPARE ! 




01CA 


EE01 


JR 


NC ,COMP LOW 




01CC 


A 034 


LIB 

COMP LOW 


RR4,RH3 ! SAVE NEW VALUE 


f 


01CE 


8APC 


CPB 


RL4.RL3 




01D0 


EE01 


JR 


NC .AGAIN 




P1D2 


AO'RC 


LDB 
AGAIN : 


'=L4,PL3 ! SAVE NEW VALUE 


! 


01D4 


2E14 


LD 


0R1.R4 ! SAVE MAP BLOCK 


f 


01D6 


“911 


INC 


R1 ,<*2 




01D8 


A921 


INC 


R2,#2 




01 DA 


ABD0 


DEC 


R13 




f'lDC 

01DE 


E601 

V6F2 


J^ 

OD 

OVR : 


Z.OVR ! GET NEXT MEM_MAP! 


01E0 


«BB0 


DEC ?11,#1 




01S2 

01E4 


E601 

E8E8 


JR Z,LL ! FINISHED ! 

OD 











❖ 



* OPERATING SYSTEM CORE IMAGE * 

* LOAD STAGE 



nj* Vf *** **» ^ *^» **» »•» 'A» »•• «JU «A» %f^ «!<• v« iJm %Af «JU WU t 

»i» 'v «n* *1' ^ 't"* •■•' ♦•'• 'i' ^ 't'*,- *,• *T* '•■• •'•'^ 'I' *1' *r *^1* n- 'i* *i’* ^ ^ '»- n* 'r ^ ! 



LL: 

! SUPERVISE P^OC LOCAL LOADING ! 



01E6 


3404 


LDAR 


R4,PROC_LOCAL ! LOAD KERNEL ! 


01E8 


01BE 






01EA 


DF6F 


CAL? 


COORD_DWN_LD 






! SAVE 


ENTRY ADDRESS TO KERNEL 1 


01EC 


61E4 


LD 


R4,DWN_ADR(R14) 


01EE 


0316 






01F0 


6FE4 


LD 


START_ADR fRl4) ,R4 


01F2 


0318 











! LOAD PROC 


GLOBAL OF 0/S ! 


01E4 


3404 


LDAR 


~R4,PROC_GLOBAL ! LOAD SUPERVISOR 


01F6 


01BF 






01 F8 


DF76 


CALF. 


COORD DWN LD 
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CCMTROL TO 0/S ! 



01FC 

01FF 

0200 

0202 

0204 
0206 

0205 
02 0A 
020C 
020E 
0210 

0212 

0214 

0216 



0213 

021A 



021C 

021C 



021C 

021E 

0220 

0222 

0224 

0226 



0223 



! SIGNAL ALL CPU TO TRANSFER 



6100 


LD 


R0 ,START_ADR 




0318 








6174 


LD 


R4 ,CPU_LIST(R7 ) ! 


LIST EASE ADR ! 


000C 








A 153 


LD 


R3,P5 ! 


NO. CPU'S ! 




DO 






6F40 


LD 


MSG_BLK(R4) ,R0 ! 


STORE STaRT ADR 


0004 








AB30 


DEC 


R3 




F603 


JR 


Z,END SIG 




0104 


ADD 


?4,^74 ! 


NEXT CPU ENTRY ! 


004A 








F8F9 


OD 








END SIG: 






DF52 


CALR 


SIGNAL CPU 




2104 


LD 


R4,#0 ! SAVE 


LOG_CPU NO. ! 


0000 










! TRANSFER 


CONTROL TO START OF 


CODE ! 


A102 


LD 


R2 , R 0 




1E28 


JP 


OR 2 






m ^ ^ »JU 

1 »-r «TT •T* 


END DIRECTOR CPU 


t 

^ •'C f 



END BOOTSTRAP 



MAP MEMORY PROCEDURE 

^ «.!# aiA* Vf »'<» ^ ^ %•« »*- •f* 

n* A-'r* »■»'* n'* 'I* '»■* »-r ^1* 'i-'*'* 't* 'r 'i' '■t' <!■* '■i’* “T" <Y» *•!* 'r 



>;« 

ou 

nr 

❖ 

* 

sfs 

* 



MA?_MEMORY: MAPS CPU MEMORY ACCESS 
BY DOMAIN, AS TO LOCAL (1), 
GLOBAL (2), DUAL.USS (3), 
NON_USS (4), NON_ACCESS (5). 

REG USE: INPUT R14 = ADR ME^ MAP 









r nr T* nr nr 'Y* 



ENTRY 

I MOVE CODE TO LOCAL, NORMAL MEMORY ARE.! ! 



2101 


LD 


R1 ,#%4100 


! NEW LOCATION ! 


4100 








3404 


LDA? 


R4,N0RM_MAP 


! START OF CODE ! 


0034 








3402 


LDAR 


R2 ,NORM_RTN 


! END OF CODE ! 


0084 










DO 






2149 


LD 


R9,0R4 


! MOVE CODS ! 
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7i22l- 

022C 

C22E 

0230 

0232 

0234 



0236 

0238 

0234 

023C 

023E 

0240 

0242 
0244 

0246 

0243 

024A 

024C 

024E 



0250 

0252 

0254 

0256 

0258 

0258 



0258 

025A 

025C 



2F19 


LD 


0R1, R9 


3B42 


CP 


R2.R4 ! CK FOR END ! 


^603 


JR 


Z, BEGIN MAP 


A 911 


INC 


PI ,>»2 


A941 


INC 


R4,#2 


F8F9 


OD 






! BEGIN MAPPING NORMAL MODE MEM ACCESS ! 


«1D4 


BEGIN MAP: 
LD 


R4.R13 ! LOW BLK ACCESS ! 


AlEl 


LD 


R1 ,R14 


8D44 


DO 

TEST 


R4 


E604 


JR 


Z,FND BLK 


0304 


SUB 


R4 ,#%0800 


0800 

A.911 


INC 


Fil ,#2 


ESFA 


OD 




Alls 


END BLK: 
LD 


R14,R1 


A1D4 


LD 


R4,R13 




! ?1 = M4P 


END BLK, R4 = AD? ! 


2109 


LD 


R9,#%F804 


F804 
A 94 3 


INC 


R4,#4 



! MAP AND ENTER FROM NORMAL ^ODS I 
2108 LD R8,#^4100 

4100 

1F80 CALL 0P.8 

9E08 RET 



END MAP MEMORY 



2102 
4 A 55 

2110 



NORM MAP PROCEDURE 



• 



i« 



* N0RM_MAP: MAPS MEMORY ACCESS IN THE * 

- NORMAL MODE INTO CON?IG_TABLE - 

- FOR CPU, * 

* ❖ 

- REG USE: INPUT R1 = MEM_MAP ADR * 

# R4 = MEM ADR 

’i' R9 = STOP ADR * 



:$:3ie9^3s:};e3;e:(c^}^3^9iij;$:4c9;:9ic^<^9i::4c^9;:>!c:;i3!c9!e:{c^^3ic3;t9;c9'^}!c:)c:{c:^3^3;e:(c:;: I 

ENTRY 

LD R2,#%AA55 ! NEW R/W PATTERN I 



LD R0 ,0R1 
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DO 








?25I 


210a 


LD 


R10, #%1000 






0260 


1000 










0262 


7 DA A 


LDCTL 


FCW.R10 


f 


CHG TO NORMAL MODE ! 


0264 


2143 


LD 


R3,0R4 






0266 


8D23 


CP 


R3 ,R2 


I 


TEST FOP. R/W ! 


0268 


ESl'7 


JR 


NZ,NC ACCESS 




! NO R/W/ ! 


026 « 


'143 


LD 


R3 ,P4 






026C 


A931 


INC 


R3,#2 


f 


CK FOR LOCAL ! 


026S 


213B 


LD 


R11,0R3 






0270 


0B0B 


CP 


Rll.^l 


1 


CPU_NUM = 1? ! 


0272 


0001 










0274 


EB03 


JR 


MZ ,GLOB_ACC 










! LOCAL 


ACCESS ! 






0276 


A143 


LD 


R3 ,R4 






0278 


0303 


SUB 


R3,#4 


I 


CK FOR SYS MODE R/W I 


027 a 


0004 










027C 


21 3B 


LD 


Ell ,0R3 


; 


GET PATTERN ! 


027E 


0B01 


CP 


R1,#%55AA 






02S0 


55fl A 










0282 


7602 


JR 


Z,DUAL MODE 






0284 


0801 


LDB 


RL0,#%01 


f 


ENTER LOCAL ID ! 


0236 


1809 


JR 


CYCLE 







DUAL MODE: 



0283 


C803 


LDB 


RL0,#%03 


! 


ACCESS BY N/S MODES ! 


023.' 


F807 


JR 


CYCLE 










GLOB ACC 


• 

• 






028C 


8B5B 


CP 


Rll ,R5 


5 


CK FOR GLOBAL ! 


028E 


EF02 


JR 


NZ,NON USE 






0290 


C802 


LDB 


RL0, #%02 


! 


ENTER GLOBAL ID ! 


0292 


E803 


JR 


CYCLE 










NON USE: 








0294 


C804 


LDB 


RL0,#%04 


I 


ENTER NON_USE ID 1 


0296 


E801 


JR 


CYCLE 










NO ACCESS; 






0298 


C805 


LDB 


RL0,#%05 


I 


ENTER NON_ACCESS ID ! 






CYCLE: 








029 A 


7F03 


SC 


#3 


I 


CHG TO SYSTEM MODE I 


029C 


2F10 


LD 


0R1,R0 






029E 


SB94 


CP 


R4,R9 


1 


CK FOR COMPLETION ! 


02A0 


F605 


JR 


Z,NORM RTN 






02A2 


0104 


ADD 


R4,#%0800 


! 


NEXT MEM BLOCK ! 
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?2A4 

fi2!6 

C2«3 

C2 > ‘ 



02AC 
02 AE 
02AS 



Z2AE 

0230 

02B2 

0234 

0236 

0238 

023A 

023C 

023E 

02C0 

02C2 



02C4 
02C6 
'^2C8 
02CA 
02CC 
02 CE 
02D0 



0232 

0234 

0236 

0238 

323A 



0Q(7I0 

«911 INC F.l,#2 

2110 LD R0,0R1 ! NEXT '^AP BLOCK ! 

E939 03 

NORM_RTN ; 

9E0S RET 



EN3 NOEM MAP 



SYSTEM CALL PROCEDURE 

! »*» «|V' ^ *•.» mA0 %•» %•» *•« ^ 

'T* ^ ^ ^ »,» »!■» *T» 



*/0 %V «A# %•» 









* STSTEM_CALL: AFFECTS PRIVILEDGED * 

- INSTRUCTION EXECUTION IN THE « 

« NOFMAL MODE. * 

- 1 = BUS LOCK =!' 

* 2 = BUS UNLOCK * 

* 3 = CHG Few * 



5|si}s^ss!s:^##:;c#5!«*:^s;j5;c;{!:;c5Sj;«3^3:s;^s^5it^5j{:S>SS!:#^s;s^ci!t>!5 4!3l5:{s>{s:Ss!! I 



ENTRY 



93 F0 


PUSH 


0315, R0 


31F0 


LD 


R0 ,R15(#2) 


0002 

6C08 


CLRB 


-H0 


0B00 


CP 


R0 ,#1 


0001 

EE04 


JR 


NZ ,CK2 


3326 


OUT 


3US_L0CK,R2 


EEE9 

97^0 


POP 


30 ,0R15 


7300 


I RET 




0300 


CE2; 

CP 


F.0,#2 


0002 

EE04 


JR 


NZ ,CK3 


3B26 


OUT 


3US_UML0CK, 


EFE8 

97F0 


POP 


R0 ,GR15 


7300 


I RET 




0P00 


CK3: 

CP 


R0,#3 


0003 

EE08 


JR 


NZ .NONE 


93F3 


PUSH 


0R15 ,R11 


21 0B 


LD 


311, #%5000 



! SAVE WORK PEG ! 

! GST INSTRUCTION I 

! GET EXECUT. CODE ! 

! CK FOR BUS LOCK ! 



! LOCK MULTIBUS ! 

! PESTOP.E WORK REG ! 



! CK FOR UNLOCK BUS ! 



» UNLOCK MULTIBUS ! 
! RESTORE WORK REG ! 



! CK FOR MODE CHG ! 
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02DC 


5000 






02D^ 


23PB 


LD R15(^^6).R11 




02Z0 


0006 






02 Z2 


97EB 


POP R11,0R15 




02E4 


97?0 


POP R0.GR15 


! RESTORE WORK REG ! 


02Z6 


7B00 


I RET 








NONE; 




02E8 


97F0 


POP ~0,OR15 


! RESTORE WORK REG ! 


02ZA 


7B00 


IRET 




02EC 




END SYSTEM_CALL 




^2BC 




WAIT COMP PROCEDURE 








1 OU«A* oO «IU **« •.!« V' «A« w «IU «A« *Jl« ^ 

T #,* ^ ^ ^ <,,, 3 ^; 35; 






* WAIT COMP; WUT FOR 


SPECIFIED MEM •'!' 






- LOCATION (RS) TO 


CONTAIN THE - 






* SPECIFIED VALUE 


(R9- BEFORE - 






* RETURN . 


3*C 








*T* 






- REG USE: INPUT RS = 


A DDR - 






- R9 = 


VALUE - 

«u 






^1^ ^ ?? ^ ^ -'t^ #1^ n'* 


«U JU «■# «■'< «l» *** «A« «JU *J« «l« «A« tjdf 1 

^ ^ '1** ' 1 ' ^ 'r O' ^ ^ T 






ENTRY 








DO 




02EC 


218E 


LD R13.0R8 


! GST VALUE ! 


!^2IE 


839D 


CP R13.R9 


! CK FOR MATCH ! 


0270 


F603 


JR Z.GOT SIG 




0272 


1904 


MULT RR4,#i 


! DELAY ! 


02F4 


0001 






02F6 


F8FA 


OD 








GOT SIG: 




02ES 


0F85 


LD GR8,#0 


! CLR MSG BLK ! 


02FA 


0000 






027C 


9F03 


RET 




0277 




END WAIT_COMP 
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e2F5’ 



030^ 

0302 
C304 
0306 
0308 
030 A 

030C 

030E 

030E 



0305 

0310 

0312 

0314 



0316 

0318 

031A 



031C 

0315 



0320 



GLOBAL 

CPU W»IT PROCEDURE 

I <iU •>*« vU «4« oJ^ •>!# %v «/U »A« %V 

f •,» ^ »,«. 3, • *,» 3|» <»J» »,» -r,-. »,X »,«. <r,» »,% 

*1^ 

- CPU WMTS APPROX. 2MSEC FOR ALL 

* CPU'S TO COMPLETE THE SAMS TASK - 

* BEFORE CONTINUING. * 

« * 





^ 






ENTRY 




2103 


LD 


R3,*50 


0032 


DO 




1904 

0001 


MULT 


RR4,#1 


«B30 


DEC 


?3 


E601 


JR 


Z .RETRN 


E8EB 


OD 






RETRN: 




9E08 


RET 





END CPU_W»IT 

COORD DWN LD PROCEDURE 

t ^ %v %t# rc %i0 %c «•# %t^%v «ju %A#^# 

I ^1% 0f* #1% >1% ^1% ^1% ^1% 



>!« 



LOAD LOCAL: LOADS PROCESSOR LOCAL 
PORTION OF O/S INTO GLOBAL MEM 
AND SUPERVISES LOADING BY ALL 
CPU'S. SETS DOWN-LOAD INST. IN 
MSG BLK OF EACH CPU. 



A173 

0103 

0800 

8D8S 



7D15 

611E 

0000 



•ju %i#^# %*# ^W# vi# f 

^1% #1% n^ ^ip V 

ENTRY 

LD R3.R7 

ADD R3,#%0800 



CLR 



^8 



! GLOBAL LOAD ADR ! 
! RESET BYTE COUNT 



! RESTORE PREVIOUS DATA AREA 1 
LDCTL Rl.PSAPOEE 

LD P14,DATA_AREA(R1) 



?EC0 

0000* 



A 173 



! LOAD PILE FFOM MCZ ! 

CALL LOAD FILE(R12) 



! SET DOWN-LOAD INSTRUCTIONS FOR OTHER CPU ! 
LD R3,R7 
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0322 


0103 




ADD 


R3,#%0800 


» 


GLOBAL LOAD ADR ! 


0324 


7800 












0326 


7671 




LDA 


ri,CPU_LIST 


(R7) 


! BASE 08 f 


0328 


000 c 










! TABLE ENTRIES ! 


032A 


7612 




LDA 


R2,MSG BLK(Pl) 


\ MSG_ELK LOG_CPU 0 ! 


032C 


0004 












^32E 


6184 




LD 


?4,DWN ADR(R14) 


! PROC_LOAD DOWN- ! 


0330 


0316 






















f 


LOAD ADDRESS ! 












f 


R8 = SIZE ! 


0332 


A 156 




LD 


?.6, P5 


1 


TOTAL NO. CPU ! 








DO 








7334 


2823 




LD 


0R2,P3 ! 


LOAD 


1 GLOBAL A.DR MSGl ! 


0336 


3324 




LD 


R2{#2) ,R4 


f LOCAL ADR MSG2 ! 


0338 


0002 












733 a 


3328 




LD 


H2(#4) .R8 


! SIZE 08 CODE MSG3 ! 


033C 


0004 










033F 


A 8 60 




DEC 


R6 






7347 


8673 




JR 


Z,DO SEL8 






0342 


0102 




ADD 


R2.a74 f 


ADR 


NEXT LOG_CPU MSG_BLK 


0344 


004A 












7346 


8886 




OD 












DO 


1 S8L8: 












! 


LOAD PROCEDURE LOCAL CODE 


INTO OWN LOCAL MEM f 


0348 


7671 




LDA 


R1 ,CPU_LIST 


'R7) 




734 A 


000 c 












034C 


7612 




LDA 


FB.r^SG BLK(Rl) 


! OWN MSG_BLK ADR ! 


0348 


0004 












7357 


2121 




LD 


R1.0R2 


j 


SOURCE ADDRESS ! 


0352 


3123 




LD 


?.3,R2(^?2 ) 


! 


DESTINATION ADP » 


0354 


0002 












v^356 


3124 




LD 


R4,H2(#4) 


1 


NUMBER BYTES ! 


0358 


0004 












035A 


3A11 




LDIRB 


0R3 ,0R1 ,R4 


! 


DOWN-LOAD CODE ! 


735C 


0437 


















SET C0N8IG TABLE CPU CNT TO LOG CPU 1 I 


035S 


4875 




LD 


CPU_CMT^ R7) 


,#1 




0360 


000 4 












0362 


0001 
















j 


SIGNAL ALL CPU TO PROCEED 


WITH DOWN-LOAD ! 


0364 


D88B 




C»LR 


SIGMAL_CPU 










1 


WAIT 80R 


ALL CPU TO COMPLE 


TE I 


0366 


7678 




LDA 


R8,CPU_CNT(R7) 
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<^369 


000 1 












036 A 


A 159 




LD 


R9,R5 


! NUMBER 


CPU I 


736C 


D041 




C '■ L R 


VAIT_C0MP ! 


WAIT FOR 


COMPLETION 


036E 


9E06 




RET 


! RETURN TO 


DIRECTOR_CPU ! 


0370 




END CCORD_rWN_LD 






0370 




SIGNAL CPU 


PROCEDURE 










! ^ 


%l^ «t# 

#1% 


«jU ou %v 

^1% #1^ >1^ ^1^ ^1% ^1% 


hI# %X0 <JU «JU 


•JU «i»# 0»" 

*r* *i*'i'* '1* *'»'* 






❖ 
















SIGNAL 


CPU: PLACES SI 


GNAL (#1) 


IN * 








SIGNAL BLOCK FOR 


EACH CPU 


EN- - 






❖ 


TFY IN CONPIG_TABLE. 


"r* 








*1# 

't' 'I* 'i* ^ 


«X» %v 

#1% ^1% #g^ #1* 


VU «!«' %i# %t# 

^1% #1% 


»•# »*# %•<• f 

*r 'r* *r* n* 'f 1 






ENTRY 












f 


SIGNAL AL 


L CPU TO DOWN- 


LOAD ! 




0370 


7673 




LDA 


R3.CPU LIST(R7) 




0372 


000C 












0374 


0103 




ADD 


^3. #74 


! LOG_CPU 


1 ENTRY ! 


0376 


004A 












0378 


*154 




LD 


R4.R5 


! TOTAL NO 


. CPU ! 


037* 


AB40 




DT^C 


?4 






037C 


5608 




JR 


Z ,ALL_SIG 












DO 








037E 


4D35 




LD 


SIGNAL(R3) ,#1 


! LOAD S 


IGNAL ! 


0390 


0000 












0382 


0001 












0384 


A340 




DEC 


?4 






0396 


5603 




JR 


Z,ALL SIG 






0388 


0103 




*DD 


?3,#74 ! 


NEXT LOG_ 


CPU ADR ! 


038A 


004A 












039C 


FSES 




OD 












ALL SIG: 








03SE 


9E08 




RET 








0390 




END SIGNAL_ 


CPU 
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0390 



0390 

0392 

0394 

0396 

0398 

039A 

039C 



039C 



039C 

039E 

03A0 

03^2 

03A4 

03A6 

03i8 



03A8 

03 4 C 
03AE 



TEST M SET PROCEDURE 



%*<• *JU o 

ofi* 4P|% *i^**ir *r* ^ ^ ^ 3f^ ^r* ^ 5|** «!•« ?J> ^ ^ ^ 



5 |' 



« TEST_M_SET: ROUTINE UTILIZING HDWR 

- TSET INSTRUCTION' AND - 

- BUS LOCKING ABILITY TO * 

- APEECT MUTUAL EXCLUSION 

- ON ACCESS TO COMMON ’i' 

* DATA STRUCTURES LOCK. * 



* PEG USE: INPUT R8 = ADR OP LOCK 
& * 



^ Jto;: ;;e ^ ^ y,: sic:^ | 

ENTRY 



3B26 

PFP9 


OUT 


BUS 


_L0CK ,R2 


! LOCK SYSTEM PUS ! 


0D86 


TSET 


0R8 




! TEST TABLE LOCK ! 


3B26 


CUT ' 


BUS 


_UNL0CK,R2 


! UNLOCK SYSTEM BUS 


PPP8 

9S08 


RET 









END TEST N SET 



GLOBAL 
MEM I NT 



PROCEDURE 



T »J^ *VS^ ^ ^ *1^ JU %C JU ^ «!«• «JU JU %<# *•» JU ^ wu 

«!•« •»!* #,% i»|* »]• 



« 



* mEM_IMT; INTERRUPT HANDLER POR AN - 

- ILLEGAL LOCAL MEMORY * 

« ACCESS IN THE NORMAL MODE - 

* SAVES MEMORY ADDRESS OP 

* NEXT BLOCK. 

*** V; 





REG 


USE: INPUT 


R3 = RTN POINT * 




5*C 




R4 = FAULT ADR - 








>!« 






5',i sjs sjs 5|S ^ :{c 5|S sjt ^ 


9)5 sjejjsj^csjcslsjf: 9^9 }f:s!:##::t:{e:ie::cs!:#5t; I 




ENTRY 






01^4 


ADD 


?4,i#%0800 ! RESTORE BLOCK ADR 


0600 








A14D 


LD 


R13.R4 


! SAVE ADR ! 


010P 


ADD 


R15, #6 


! RESTORE STACK ! 


0006 








1S38 


JP 


0R3 


! RTN TO SYS CODE ! 




END MEM_ 


I NT 






PROG LOCAL: 




0D 


BVAL 


%0D 




4C4P 


WVAL 


'LO ' 




4144 


WVAL 


'AD' 




204B 


WVAL 


' K' 
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4552 


WVAL 




0332 


4E45 


WT'^L 


'NE' 


03P4 


4C20 


WVAL 


'L ' 


0336 


20 


3VAL 

PROG GLOBAL 


• 

• 


0337 


11 


BVAL 


%11 


03BS 


4C4F 


W V a L 


'LO' 


033 A 


4144 


VVAL 


'AD" 


03BC 


2053 


WVAL 


' S' 


033E 


5550 


W7»L 


'DP ' 


03C0 


4552 


WVAL 


'ER ' 


03C2 


5649 


WVAL 


'VI ' 


^3C4 


534F 


WV4L 


'SO' 


03C6 


5220 


WVAL 


'R ' 


03CS 


20 


BVAL 





?:nd bootstrp 



2. 



SUPPORT! '^ODULP (same as Appendix C) 



3. SUPPCRT2 ’^ODULE 'same as Appendix C) 



4. SUPP0RT3A MODULE 



Z80e''7»SM 2.02 

LOG OBJ CODE STMT SOURCE STATEMENT 

1 SUPP0RT3A MODULE 
tLISTON $TTY 



^ •'I' 

* SUPP0RT3A MODULE; MODULE THREE FOR - 

- SECCNDARY STORAGE PRIMITIVES - 

FUNCTIONS SUPPORT. STRICTLY - 

- HARDW.ARS DEPENDENT! SHOULD - 

- MEET STORAGE DEVICE REQUIRE- * 

* MENTS FOR INTERFACING. - 

3^S 5p 

* NOTE; DUPLICATE OF MONITOR LOAD CMD - 

* MODULE. " - 



^ «.! 



%%0 Uu ou V# OU WU Wk# t 

iTj'^ rjV #1% I 



CONSTANT 

RXR := 2 

TXR ;= 0 

PA.?. := 7 

PORTAD := %FFD9 

PORTED %FFE1 

PORTAC := %FFDB 

PORTBC := %FFE3 

IDPORT := %FFCB 

ICPORT ;= %FFC9 

TCMD := %FFD2 

TDTA := %FFD0 

BUS LOCK :=%FFF9 

PUS' UNLOCK :=%FFF8 

VINTR := % (2 )0001000000000000 

VIBIT := 12 
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0060 

0100 

0200 

0300 

0302 

0304 

0306 

0308 

030A 

030C 

030E 

0310 

0312 

0314 



ESCAPE 


= 


%1B 






BS 


= 


%08 






LINDEL 


= 


%7F 






CR 


= 


%0D 






LE 


- 


%0A 






TXOFCH 


= 


%13 






TXONCH 




%11 






INSIZ 


= 


128 


! INTBUF SIZE 


? 


OUTSIZ 


— 


128 


! 0UT3UF SIZE 


J 


RBSIZ 


= 


256 


! RING BUFFER 


SIZE 


JIT POSITIONS 


IN MONITOR 


FLAG WORD ! 




TRPt^DE 


= 


0 






I STOP 


= 


1 






OSTCP 


= 


2 






SNDMDE 


= 


3 






LDMDE 


= 


4 






ESC 


- 


5 






TXMSK 


= 


%6 







EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERN ,’L 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 

INTERN ''L 
$SECTION 
$A3S 0 



INTBUF 


ARRAY 


[128 


BYTEl 


OUTEUF 


ARRAY 


[126 


BYTE] 


RNGBUF 


ARRAY 


"256 


BYTE] 


MCZBUF 


ARRAY 


[256 


BYTE] 


BUFADR 


WORD 






BUFSIZ 


WORD 






INTPTR 


WORD 






OUTPTR 


WORD 






NXTPTR 


WORD 






GETOUT 


WORD 






MCZPUT 


WORD 






MCZGET 


WORD 






MFLAGS 


WORD 






RETRY 


WORD 






ADR STR 


WORD 







PRNTBF 
GETNXT 
EROE 
SNDCHR 
GET ADR 
GMC2AD 
SNDMCZ 
CONVERT 
PBUENC 
SND.NSG 
CONVW 



DATA DEC 



PROCEDURE 

PROCEDURE 

LABEL 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

LABEL 

PROCEDURE 

PROCEDURE 
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f316 

0318 



ewn_adr word 
staht_;dr word 

$SECTION LOAD_PRCC 
$EEL 0 



0000 



GLOBAL 

FNA^^E PROCEDURE 

» %f* V* 5^ y* «-v>* y* w* %•» y< *•# *y y# »•« •><< %v «y *u y# •jl* »»» »'.» 

n' 'r* 'i* *»' ^ 'I* 't* '«* •^'‘ '<* ^ *r» 'i* ***• v <»i* 'c *i* *'i*‘ 



FNAMS: resets TWO PTRS TO MCZBUF 
AND CHECKS FOR FILENAME. 






%i# >V «JU %i# %t^ t 

^1% 0 \* ^|4 ^1% #1^ ^1* #1^ ^1% r|% #1^ #1*^ I 

ENTRY 



! RESET BUFFER 



0000 


4DE8 


CLR 


MCZGET(R14) 


0002 


030S 






0004 


4DF8 


CLR 


MCZPUT(R14) 


0006 


030C 






0008 


34CA 


LDA 


R10,R12(#GETNXT ) 


000A 


0000’''' 






000C 


1FA0 


CALL 


OR10 ! SKI 


000F 


0A08 


CPB 


RL0,#'A' 


0010 


4141 






0012 


E711 


JR 


C.DUN 


0014 


0A08 


CPB 


RL0,# 'Z '+1 


0016 


5B5B 






0018 


FF0S 


J? 


MC,DUN ! 1ST 


001A 


76CA 


LDA 


R10,GETNXT(R12) 


Z01C 


0000=^ 






001E 


1FA0 


CALL 


0R10 ! SKIP 


0020 


S607 


JR 


Z,NO ADR ! NO N 


0022 


76CA 


LDA 


Fie,GETADR(Rl2) 


0024 


0000=!^ 






0026 


1FA0 


CALL 


OR 10 ! GST 1 








! ADDR 


0028 


A13B 


LD 


R11,P.3 ! SAVE 


002A 


6FE3 


LD 


ADR_STR(R14) ,R3 


002C 


0314 






002E 


9E08 


RET 








NO ADR: 




0030 


210B 


LD 


R11,#%FFFE ! SIGN 


0032 


FFFF 












! ADDR 


0034 


9E08 


RET 








DUN: 




0036 


CD 

no 


CLR 


R9 
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'7 £38 


34CA 


LBA 


R10,R12(i»SROR) 


203A 


0000*!* 






003C 


1EA8 


JP 


OR10 ! ERROR, RTN TO EXEC 


003E 




END EN'ME 








GLOBAL 




003E 




CMDPAS pro: 


SDURE 






at 


V'* Vi Vi Vi Vi «i*« «iV »*» »*•» y» yu y< y* 

»>■» ^ TP »p «p «p 






- CMPPAS : 


LOAD CMD PASSING MECHANISM * 








SENDS 'B; ' PLUS CONS CMD - 






« LINE TO 


MCZ AND CKS RESPONSES EOF * 






* GOOD Z80 PROGRAM LOAD. 

y# 






- REG USE 


: RETURN NZ IF Z60 LOADED =<= 






* 


Z IF NOT - 












ENTRY 




003E 


67E5 


BIT 


MFLAGS(R14) ,#ESC ! CE FOR ESCAPE 


0040 


0310 






0042 


E602 


JR 


Z .GCMD 


0044 


8D41 


SETELG 


Z 


0046 


9E08 


RET 








GCMD: 




0048 


C242 


LDB 


FE2,#'B' 


004A 


CA3B 


LDE 


RL2,#'; ' 


004C 


6FE2 


LD 


CUT3UF(R14) ,R2 ! LOAD INIT '3 


0G4E 


0080 




! FO? 3PIEF MODE ! 


0050 


76E2 


LDA 


R2,OUTBUF(R14) 


0052 


0080 






0054 


A921 


INC 


?2,#2 


0056 


76E1 


LDA 


R1,INTBUF(R14) 


0058 


0000 






005A 


2100 


LD 


R0,#%40 ! LD CMD IN 0UT3UF 


005C 


0040 






005E 


3B11 


LDIR 


0H2,GR1,R0 


0060 


0020 






0062 


76E1 


LDA 


R1 ,0UT3UF(R14) 


0064 


0080 






0066 


0101 


ADD 


HI ,#%80 


0068 


0080 






006A 


6EE1 


LD 


OUTPTR(R14) ,R1 


006C 


0306 






006E 


DEB6 


CAL?. 


CUTSTM ! OUTPUT BUFFER ! 


0070 


DES7 


C “LP 


SKIPLN ! SKIP MCZ ECHO ! 
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0072 DFD4 


CALR 


MCZCOM 


! IvAIT RESPONSE 


0074 0409 


CPB 






0076 4242 








0078 ES02 


JR 


NZ ,LDSTAT 




007A DFEC 


CALR 


SKIPLM 


! SKI? MCZ ECHO 


007C DFD9 


CAL" 


f^CZCOK 


! WAIT RESPONSE 







! VERIFY LOAD STATUS ! 








LDSTAT: 






007E 


0A09 


CPB 


RL1,#'9' 


! TEST LEGAL ! 


0080 


3939 








0082 


E60E 


JR 


Z, RECACK 


! ACKNOWLEDGEMENTS 


0064 


0A09 


CPB 


xRLl,#'0 ' 




0086 


3030 








0088 


E60B 


JR 


Z , RECACK 


! ESC GOOD ACK ! 


008A 


0A09 


CPE 






008C 


3737 








008E 


E608 


JR 


Z, RECACK 








! NO ACKNOWL 


.SDGEMENTS RFC 


EIVED ! 






ERMSG: 






0090 


DFT)9 


C4L^ 


RECMSG 


! GET MCZ >^SG ! 


0092 


34CA 


LDA 


R10.R12(#SNDCHR) 


0094 


0000<: 








0096 


1FA0 


CALL 


3R10 


! SEND TO CONS ! 


0098 


0A08 


CPE 


RL0,#LF 




009A 


0A0A 








009C 


9E06 


RET 


Z 


! DOME ! 


009E 


E8F8 


JR 


EPI^SG 








! ACKNOWLEDG 


•E RECEIVED ! 








RECACK: 






00A0 


SD43 


RESFLG , 


Z 


! RETURN NZ ! 


00A2 


9E08 


RET 






00 A4 




END CMDPAS 
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00A4 



GLOB 4L 

SKPE LABEL 
SKIPL.N PROCEDURE 



- SKIPLN; SKIP RECEIVED LINS FROM 

MCZ; RETURN FIRST CHAR OF 
’i' NEXT LIME. 



V 



REG USE: RETURN 



RLl = 1ST CHR 
AND NZ IF ESC 



3 ;: 4:s;$»;o;e t 
ENTRY 



00A4 


DFE3 


CALR 


RECMSG 


I SKIP OVER LINE ! 


0046 


0A08 


CPB 


RL0,#CR 


! THRU CR.LF ! 


00A8 


0D0D 








00AA 


EEFC 


JR 


NZ .SKIPLN 








SKPB: 






00AC 


2101 


LD 


R1 ,#%3000 


! DELAY FACTOR ! 


00AE 


3000 


! MAIN LOOP 
LOOPl : 


FOR RECEIVING 


CHAR ! 


00B0 


61S0 


LD 


R0 ,MCZGET(R14) 




00B2 


030E 








00B4 


4BE0 


CP 


R0,MC2PUT(P14) 


! TEST FOR REC CHR 


0036 


030C 








0038 


EE03 


JR 


NZ, RECHR 


! YES ! 


00BA 


AB10 


DEC 


R1 ,#1 


! NO, wait awhile ! 


003C 


ESF9 


JR 


NZ .LOOPl 




00BE 


9E06 


RET 


Z 


! FORCED EOL ! 






RECHR: 






00C0 


DFF3 


CALR 


MCZCOM 




00C2 


0A09 


CPB 


RLl,#' ' 


! CK 1ST=PRNT CHR ! 


00C4 


2020 








00C6 


9E0D 


RET 


PL 




00C8 


DFF5 


CALR 


RECMSG 




00CA 


E8F0 


JR 


SKPB 




00CC 




END SKIPLN 
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00CC 



MCZCO^" PKOnSDURE 

f -sfr 2'r sir s*; a*r 



' *1* 'r 'I' 



' ^4^ ^|«» ^1% #|« 



* ^CZCOM: LOOPS WAITING POP PECSIVE * 

- CHAR FROM MCZ BY SEEING IF - 

MCZBUF GETS CHAP. DOES - 

* ADVANCE POINTER. - 



- REG USE: RETURN RLl = CHR 

«u 



«!• ml* %•<* hV V' V*’ **<' 

»(» *1* if’ 



1*^ »•» >•» %V »*» »'■* ..1^ •f* »*» »•» **» fl 

,* .»,<. #,* tf, »,> »f> »!«. ?,» i»,«. nr* •’1’* ^i** ^** 'i- f 







ENTRY 






00CC 


61E0 


LD 


R0,MCZGET(R14) 


! CHECK MCZBUF 


00CE 


030E 








00D0 


4EE0 


CP 


R0,MCZPUT(R14) 


! POINTERS ! 


00D2 


030C 








00B4 


E6F'P 


JR 


Z. MCZCOM ! 


WAIT ! 


O0D6 


34 C A 


LDA 


R10,R12(#GMCZAD) 


00D8 


0000* 








00DA 


1FA0 


CALL 


0R10 I 


GET CHAR FROM SUE 


00DC 


2029 


LDB 


RL1,0R2 




00DE 


9E08 


RET 






00E0 




END MCZCOM 






00E0 




RECMSG PROCEDURE 










VU S>.> •X* ^ -i* >>> %.'» «JU «V 

nf* **1' ^•* 'T' *v* •'t' 


hV ^Ji H*# hW 

^ ^ ^ ^ ^ ^ 






* RECMSG; 


LOOPS waiting 


FOR REC CHR * 








FROM MCZ. GETS 


CHAR AND * 






JU 

-»** 


DO NOT ADVANCE 


3UF PTR. * 






* REG USE 

jf- 


: RETURNS RL0 = CHR * 






5 ;: 3|i 5j5 sjc Jjt 5{C sj: 


%t# %%0 ^ OU %I^%V 

^ ^ ^ ^ ^ ^1% #1^ ^ 


1 

#1% r|% f 






ENTRY 






00E0 


61E0 


LD 


R0 ,MCZGET(R14) 




00E2 


030E 








00E4 


4EE0 


CP 


R0 ,MCZPUT(E14) 


! CK FOR REC ! 


00E6 


030C 








00S8 


E6FB 


JR 


Z. RECMSG ! 


WAIT ! 


00EA 


34CA 


LDA 


R10,R12(#GMCZAD) 


00EC 


0000* 








00EE 


1FA0 


CALL 


GR10 ! 


GET 1ST CHAR ! 


00F0 


6FE0 


LD 


MCZGST(R14) ,R0 


! RESTOFE PTR i 


00F2 


030E 








00F4 


2028 


LDE 


RL0,0R2 ! 


RTN CHAR ! 


00F6 


9E08 


RET 






00E8 




END RECMSG 
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GLO.BAL 







OUTSTM 




0078 




OUTLME 
■ %•» 

f •r* n"* 


PROCEDURE 

V' %** *'« w« «•« «A« v« %''< «■'< 

<|» O' O' 'i' O' *i' O'* 'i' ^i' O' 'J' O' O' O' o' O' O' O' ^<' o' ^l' 'i' 






O'* 

- OUTLN 


in 

S: OUTPUTS A LINE OF CHAR FROM - 






❖ 


OUTBUF TO MCZ WITH CR AT 






't' 

iff. 


END. * 

ii 






* OUTSTM: OUTPUTS A LINE CF CHAR W/CR ’- 

j;: s;j 






^ ^ WU JU 

^ 

ENTRY 


V# 9 

^|« ^1% ^1% ^1% #1* ^|0 ^1% ^|<0 «l>|% y 


00F8 


6172 


LD 


R2.0UTPTR(R14) 


007A 


0306 






C07C 


0C25 


LDB 


0R2,#CR iSTORE CR IN 3UF ! 


00F7 


0D0D 






0100 


69S0 


INC 


0UTPTR(R14) ,#1 ! INC PTR ! 


0102 


03'^6 







! NO CF ENTRY POINT ! 
OUTSTM: 



0104 


76F1 


LDA 


R1,0UTBUF(R14) 


0106 


0060 










! MAIN LOOP 


! 






CVRAGN : 




0108 


2018 


LDB 


RL0,0R1 


010A 


A910 


INC 


R1 


010C 


34CA 


LDA 


R10,R12:#SNDMCZ) 


010E 


0000'' 






0110 


1FA0 


CALL 


0710 ! SND CHR TO MCZ ! 


0112 


E603 


JR 


Z, FINIS 


0114 


4BE1 


CP 


R1,0UTPTR(R14) 


0116 


0306 






0118 


E7F7 


JR 


C.OVRAGN ! CK IF BUF EMPTY ! 






! FINISHED, 


RESET 0UTPT?(R14) AND BLANK OUTBUF 






FINIS: 




011A 


76E2 


LDA 


R2,0UTBUF:R14) ! RESET POINTER ! 


011C 


0080 






011E 


6FE2 


LD 


0UTPT?(R14) ,R2 


0120 


0306 






0122 


2100 


LD 


R0,#CUTSIZ/2 


0124 


0040 






0126 


AB00 


DEC 


R0,#1 ! SET COUNT ! 


0128 


4DF5 


LD 


0UTBUF(R14) ' ' ! LOAD COUNT ! 


012A 


0080 






012C 


2020 






012E 


76F2 


LDA 


R2,0UTBUF(R14) 


0130 


0080 
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! CL:1 'SUFFER ! 



0132 


“121 




LD R1.R2 


0134 


A911 




INC Rl.#2 


0136 


3B21 




LDI G:-1,0H2,P0 ! CLR 'SUFFER ! 


013S 


0013 






013A 


9F08 




RFT 


013C 




END 


1 OUTLNE 






AEORTM LABEL 






GCDPAK LABEL 


013C 




3“DP“K PROCEDURE 






f 5js5|i 


1 «il« Otf *•# %v ^ «*' »'» »A» >•» %•< V'* '•» ^ •’* 

■ '*'* 'j' O' O' O' •'r* O' O' O' '•* O' O' oR O' O' o' ■'r O' 'I'O' 'p 'r* *c* o' o' o' •%' 'i' o' o' o' ^ o' O' o' 








BADPAK: SENDS RESEND SIGNAL ('?') - 






V 


TO MCZ FOR BAD CKSUM OP i;SC « 








NON-ASCII CHR. - 






5^: 










ABORTM; SENDS ABORT SIGNAL ('9') - 






yc 

jJj 


WHEN USER SELECTED. ;;; 








GODPAK: SENDS ACK SIGNAL ('3') FOR * 



RECEIPT OF GOOD PACKET. 










j;: ?;s5;: 5;t :Jc 5j:>;c o«5{i 5{C y^5}c J 


013C 


CS37 


ENTRY 

LDB 


RL0,#'7' ! 


LD RESEND SIG ! 


013E 


E803 


JR 


OUTALL 




0140 


C839 


ABORTM: 

LDB 


kL0,#'9" ! 


LD ABORT SIG ! 


0142 


E801 


JR 


OUTALL 




0144 


C830 


GODPAK : 
LDB 


RL0,#'0' : 


LD REC OK SIG ! 


0146 


6EE8 


OUTALL: 

LDB 


0UT3UF(R14) ,RL0 




0143 

014A 


0080 

76ED 


LDA 


R13,0UT3UF(R14) 




014C 

014E 


0080 

“9D0 


INC 


R13,i^l 




0150 


6FED 


LD 


0UTPTR(?14) ,R13 




0152 

0154 


0306 

D02F 


CALR 


OUTLNE ! 


SEND MCZ SYSTEM 


0156 


D05A 


C A ij XI 


SKIPLN ! 


SKIP ECHO ! 


0156 

015“ 


PE08 


RET 

END BADPAK 







241 



GLOBAL 

315A G5TACK FBCCEDURE 

T V ^ ^ *1' »i» 5{^ 5i* ^ 5j? T^i 







T V ^ ^ 'r 

«A> 


^ V.< «<« V« «•' V- -J, 

»l» ^ 


*1# %•# %V%># %v 

#1^ ^ 






'T' 

- GETACK: 


RECEIVE 


AND INTERPRET ACK - 








FROM MCZ 


. GOOD ACK = '0' 










BAD ACK = ' 7 ' * 






❖ 




ABORT = ' 9 ' - 






* REG USE 


: RETURN 


Z,NC IE GOOD ACK * 










NZ.NC IF BAD ACK * 










NZ,C IF ABORT j 






#1^ 

ENTRY 


OU 

#1% #1% #,% 


*•> »•«•!« «.)« •'» V* *** ••*' ^ 1 

rj-* #1% >1% #1% #1^ #1% 1 


015A 


D048 


CALR 


MCZCOM 


! GET CHR ! 


015C 


0A09 


CP3 


RL1,#'0' 


! CK FOR ACK ! 


ei55 


3030 








0160 


EE04 


JP 


NZ ,NACK 


! NO ! 


0162 


D060 


CALR 


SKIPLN 


! YES, REC ACK ! 


0164 


3D41 


SSTELG 


Z 




0166 


9B83 


RESELG 


c 




0166 


9E08 


RET 










! CK FCR '7 
NACK : 


' AND '9' 


MON-ACKNOWLEDGEMENTS ! 


016A 


0A09 


CPE 


RL1,#'7' 


f CK FOR RESEND ! 


016C 


3737 








016E 


EI04 


JR 


NZ ,A3RT 


! NO ! 


0170 


D067 


CALF 


SKIPLN 




0172 


81)43 


RESELG 


Z 




0174 


8D83 


RESELG 


C 




0176 


9E08 


RET 










! CHECK EOF 
ABRT : 


ABORT 1 




0178 


0A09 


CPB 


RL1,#'9' 




017A 


3939 








017C 


E602 


JR 


Z, ENDIT 


! YES , ABORT. . . ! 


017E 


D050 


CALF. 


RSCMSG 


! GST ANOTHER CHR 


0180 


E8EC 


JR 


GETACK 


! TRY AGAIN ! 






ENDIT : 






0182 


D070 


CALR 


SKIPLN 




0184 


8D43 


RESELG 


Z 




0186 


8D81 


SETELG 


c 




0188 


9E08 


RET 






018A 




END GETACK 
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018 A 



LI^JRCT PROCEDURE 



«|<# Ou %A^ 

^ ^1% #1% #1^ «|%#|% #1% «|% #1% ^ #|> . 



« %*# %'# \*^ V# v^ V^ 

^ #|*fc ^ >1^ 



- LIMPCT: RECEIVES LINE OE CIPR FROM - 

* MCZ AFTER RECEIPT OF '/', - 

« AND STORES IN INT3UF, ADDING- 

- CR AT END AND FILTERING OUT - 

* CONTROL CHARACTERS, (<1J0H) - 
(TRUNCATES AFTER 80 CHAR) * 







>1^ *\% #1% #1^ #1% #!<« #1% #1% 


^*4 «•«*,!« '«*« <|4« «■,« ^ V' '■** »f* 1 

*T* -Tf, n'* ^ *v *ir *i'**v* 'i' Sir* ,•,• «nr » 






ENTRY 








! WAIT FOR 


ASCII / ! 


018A 


D056 


CALR 


RSCMSG 


018C 


0A08 


CPB 


RL0,# V' 


013E 


2F2P 






0190 


EEFC 


JR 


NZ.LINRCT ! WAIT ! 






! BEGIN STORING CHARACTERS ! 


0192 


76E4 


LDA 


R4,INTBUF(R14) 


0194 


0000 






0196 


CB50 


LDB 


RL3,#80 !SET LINE LENGTH ! 






: STORE CHAR IN INTBUF ! 






LOPSTR: 




0198 


D05D 


CALR 


RECMSG ! GET CHAR ! 


C19A 


2E48 


LDB 


GIi4,RL0 ! STORE ! 


019C 


0A08 


CPB 


RL0,#CR ! CK FOR END ! 


019S 


0D0D 






01A0 


EE02 


JR 


NZ, SKPSOM ! GOT CHAR., ! 


01A2 


D07C 


CALR 


SKPB 


01A4 


9E08 


RET 








'.CONTROL CHAR FILTERED AND DEC LINE COUNTER 






SKPSOM: 




01A6 


0A08 


CPB 


RL0,#' ' 


01 A8 


2020 






01 A A 


E7F6 


JR 


C, LOPSTR 


01AC 


A940 


INC 


R4,#l ! GOOD CHAR ! 


01 A E 


F30C 


D3JNZ 


RL3, LOPSTR ! DEC COUNT ! 






.'TRUNCATE, 


TOO MANY CHAR 1 






LOPOVR: 




01E0 


D069 


CALR 


RSCMSG 


01E2 


0A08 


CPB 


RL0,#CR ! LOOK FOR CR ! 


0134 


0D0D 






0136 


FEEC 


JR 


NZ .LOPOVR 


0138 


76ED 


LDA 


R13,INTBUF(R14) 


01BA 


0000 






01BC 


010D 


ADD 


R13,#80 


01BS 


0050 






01C0 


2ED8 


LDB 


0R13 ,RL0 
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01C2 9E?8 


RET 


01C4 


END LINRCT 


01C4 


UNPACK PROCEDURE 

? :tc Jr ❖s'.s y,i :^s xs Jr Jr >1: 5|c :{« s;c aj: :{s 5 ^ 3 ;? ^:tc :;c 

V *V‘ 

- UNPACK: UNPACKS RECEIVED PACKETS - 



* FROM MCZ IN INT3UF AND 

* LOADS IN SPECIFIED MEMORY - 

- AREA. ASCII CHAR ARE CON- * 

- VERTED TO HEX VALUES. * 

>JC 



* REG USE; INPUT RH3 = #BYTE DATA - 
ENTRY 



01C4 


A03C 


LD3 


RL4.RH3 1 SAVE COUNT ! 


eiC6 


DED9 


CALR 


CONVAD ! CONV START ADR ! 


01C8 


61 E2 


LD 


R2,DWN_ADR(R14) 


01CA 


0316 






01CC 


8D24 


TEST 


a 2 


01CE 


EE02 


JR 


NZ.NOT FIRST 


01D0 


6FE1 


LD 


DWN_ADR(R14) ,R1 


01D2 


0316 


NOT_EIRST; 








! CHECK FOR 


USER ENTERED ADDR FOR LOAD I 


01D4 


0S0R 


C? 


Rll .nEFEE 


01D6 


EEEE 






01D8 


F601 


JR 


Z ,USE MCZADR 


01D* 


»1B1 


LD 


R1,R11 ! USER SPECIFIED ! 






USE MCZADR; 




01DC 


76E2 


LDA 


R2, INTBUF(R14) 


01DE 


C000 






01E0 


A 9 27 


INC 


R2,#8 






CANDS; 




eiE2 


DEF8 


C ALR 


TRNHEX ! CONVERT 2-ASClI CHR 


31E4 


2E18 


LD3 


OR1,RL0 ! STORE IN MEM ! 


01E6 


A910 


INC 


R1 ,#1 


01E8 


EC 04 


D3JNZ 


RL4, CANDS ! CONV AND STORE «LL 






! UPDATE USER SPECIFIED ADDRESS ! 


01EA 


0B03 


CP 


R11,#%EFFE 


01EC 


EEEE 






01EE 


E601 


JR 


Z.NO update ! USE MCZ ADR ! 


01F0 


niB 


LD 


R11,R1 ! UPDATE USSR ADR ! 
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NO UPD "TE: 






01F2 


9F0S 


RET 






01F4 




END UNPACK 






01F4 




TRNHEX PROCEDURE 








f Os o^ wu 

f 


r|% ^ 1 % 7,- 


J 5 !^ «>« «*« %P^ ^4! 4>, %>4 ^4 %l« «l« .u '.•* »l, 

* 'i* ■'l'* »«' < 1 ^ *»'• 4^ •!« 
















* TPNHSX: 


CONVERTS 


i TWO ASCII CHAR FRM 








INTBUF TO TWO 4-31 T HEX # - 








AND ADD 


TO CKSURl. - 










«u 






- REG USE 


: INPUT 


R2 = PTR TO 1ST CHR - 






>JS 




RL3= CKSUM ACCJM - 








RETURN 


R2 = UPDATE PTE * 










RL3= UPDATED ACCUM - 










RL0= HEX VALUE * 










AND C IF NON-ASCII * 










NC IF ALL GOOD - 






❖ 










iA? ^ ^ ^ ^ 

^ n* * 1 * ^ *r* 


2^:tt5;5 :;j;{c5;t2;c:{s5;5 5;: ?;? 5 ^: 5 ;= s;c^::;:y,?5;5 5*5 2;^ 3 }c2;53;s3;c5;<5*s f 






ENTRY 






01F4 


DFF6 


C ALR 


ATOHEX 


! CONVERT 1ST CHR ! 


01F6 


9F07 


RET 


C 




01F8 


808B 


ADDS 


RL3,RL0 


! ADD TO CKSUM ! 


01FA 


B309 


SLA 


R0,#12 


! MOVE TO H NIBBLE 


01FC 


000C 








01FE 


DFF3 


CALR 


ATOHEX 


! CONVERT 2ND CHR ! 


0200 


9E07 


RET 


C 




0202 


808B 


ADDB 


RL5,RL0 




0204 


8408 


ORB 


RL0,RH0 


! COMBINE NIBBLES ! 


0206 


8B83 


RESFLG 


C 




0206 


9F0S 


RET 






020A 




END TRNHEX 






02 0A 




ATOHEX PR0CSDU5E 








f ?{c ^ SjtdyC 


2 J 5 jJ% J|J 3^ 3|c 3|« s(« 3^ 2(C 3|C ){( 2{$ 3y«3^ «|« 3^ 3p 3jC 3|« 3|C 3{C 3|5 3j? 3(« 






* ATOHEX: 


CONVERTS 


ONE ASCII CHAR TO - 








4-BIT HEX NIBBLE. - 

0^ 






REG USE 


: INPUT 


R2 = PTR TO CHR ’i' 






•kJU 


RETURN 


R2 = PTR +1 * 






Ou 




RL0= HEX NIBBLE 






:{s ^ 5^5 :{{ :;c :{: s;< ?;c 5|t 5^5 2}: j|s ^ 


:;s3;i5;j3;i2;t3*,5 3;f3;s 3j«5;<3}c3;c 3|i:>{s;;:3i:;J:3^3;:y^3;r f 






ENTRY 






020“ 


2028 


LDB 


RL0.GR2 




020C 


A920 


INC 


R2,#l 


! INC PTR ! 


020F 


34CA 


LDA 


S10,R12(#CONVERT) 
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OR 10 



02 IP 0000* 

3212 17?0 CALL 

0214 9R08 RET 

0216 END AT0HEX 



0216 


CONVAD PROCEDURE 

I ^ •#> «■><» «•<» «t« «4« «U ^ «■« «<« «•« ^ 

1 ^1% ^1^ ^1^ ^1* ^1% ^1% ^1% 


Wl# 

. #’1^ ^1% #i|% 




* CONVAD: CONVERTS STARTING 


ADDRESS 


>u 




* OF PACKET DATA TO 


HEX #. 






# 







* REG USE: RETURN R1 = ADDRESS (HEX) * 







jjf :|s :{s ^ j;: 3*,c 5{t s;i ^JssJs 5|i 5|c sjc j;c>;c s;s i;s 5;<:^c 5'^ a;: s;c sjs 5jc5;t aj: a;? a’^ a;^ 


^ ! 






ENTPY 






0216 


76S2 




LDA 


R2, INTBUF(R14) 




0218 


0000 










021A 


D014 




CAL? 


TRNHEX 




021C 


A081 




LDB 


RH1.RL0 ! STORE 1ST BYT 


E ! 


021E 


D016 




C ALR 


TRNHEX 




0223 


A089 




LDB 


RL1,RL0 ! STORE 2ND BYTE ! 


0222 


9E08 




RET 






0224 




ENE 


> CONVAD 






0224 




CHKPAK PROCEDURE 








1 

1 *T' *V 


:ajc aj«a|sa^a^5{:a;cajc 


#1% ri** ^1^ ^1% >1^ #1% #1^ 


a{; 






❖ 






s|c 






•JU 

*Y* 


CHKPAK: 


CK RECEIVED MCZ PAC CKSUM 


'1' 










AGAINST ACCUMULATED HEX 


'C 






❖ 




VALUE CKSUM AFTER ASCII-TO- 


V 










HEX CONVERSION. 


n' 








REG USE 


: RETURN RH3 = BYTE COUNT 


'1* 

❖ 










AND C IF BAD OR 








❖ 




NON-ASCII . 


V 



ENTRY 



0224 


76E2 


LDA 


R2,INTBUF(R14) 


0226 


0000 








0228 


C303 


LDB 


RH3,#3 




02 2A 


DFF9 


C ALR 


CHKSUM 


! CK 1ST CKSUM ! 


022C 


9E07 


RET 


C 


! BAD CK ! 


022S 


SC34 


TESTB 


RH3 




0230 


9E06 


RET 


Z 


! NO DATA ! 


0232 


93F3 


PUSH 


(AR15,R3 


! SAVE BYTE COUNT 


0234 


DFFE 


CALR 


CHKSUM 


! CK 2ND CKSUM 1 


0236 


97F3 


POP 


H3.0R15 




0238 


9E08 


RET 






023A 




END CHKPAK 
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023 « 



CHKSU!^ PROCEDURE 

? 'I' 5|f S{^ 5,i ?fS 3 i SjC 5|i 3'c 3jl 3jC 3|C3|: 3|« 3,^ ^ ^ 3p SjS Sjc 3{« 3{£ 3{C 3*<i 

:;c 

- CHKSUM: CONVEET5^ ALL T.Lr ASHTT HTTR 

- IN ?AC 

* CKSUM. 

’!' REPORT 



’S ALL REC ASCII CHfi 
TO HEX AND ACCUM NEW 
CC^^PARS CKSU.MS AND 
DIPEEKENCES . 



’f' REG USE; INPUT 

'r 

- RETURN 



R2 = PTR TO PAC 
RH3= # CHR P»IRS 
RH3= BYTE COUNT 
RL3= NEW CKSUM 
RH3= REC CKSUM 
AND C IF BAD OR 
NON-ASCII REC 






«(« <JU «J^ «»l» ^V» »A* •Jif »V i' 5?^ 5t V? it "it ^ # 

»r* n'*<T* 'i* ■'•'• *%'• ^ *c *** x,» ««|5 ^ -c *t' n' O'* ^ nr •' 1 ^ 'C ^ *r* ^ ^ ^ ^ O' ^ »Tr ^ • 

ENTRY 



P23A 


8CBS 


CLRB 


EL3 


! RESET CKSUM ! 


023C 


D025 


AB;CALR 


TRNHEX 


! CONVERT PAIRS ! 


023E 


9E07 


RET 


C 




0240 


F303 


DBJNZ 


RH3, AB 


! CONTINUE ! 


3242 


A083 


LDE 


RH3.RD0 




0244 


93F3 


PUSH 


0R15.R3 


! SAVE BYTE CNT » 


0246 


D02A 


C ALR 


TFNHEX 


! CONVERT NEXT TWO 


0248 


97F3 


POP 


R3.0R15 




024A 


9E07 


RET 


C 




024C 


8A.B8 


CPB 


RL0.RL3 


! COMPARE CKSUMS ! 


024E 


9F06 


RET 


Z 


! GOOD CK. . . ! 


0250 


SD81 


SETFLG 


C 


! BAD CKSUM ! 


0252 


9E08 


RET 






0254 




END CHKSUM 
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3254 



0254 

0256 

0258 

025A 

025C 

325E 

0260 

0262 

0264 
0266 

0265 
026A 
026C 
026E 
0270 
0272 
0274 
0276 
0278 
027A 
027C 
027E 



GLOBAL 

LOADFL PROCEDURE 

I •>« V> 

T 'I' 'I* 'I'* 't' 'C- "t* ' ' '•l'* •'i'* 



❖ 



LOADFL: RECEIVES PACKET FROM MCZ I'> * 

FOLLOWING FORMAT: * 

❖ 



- <ADRXCNT><CKS1><DTA>. . .<DTAXCKS2> - 

5*- 

=«= ADR = START ASR IN ZS000 MEM - 

« CMT = # DATA WORDS * 

CKS1= CKSUM OF <ADR> + <CNT> * 

* <DTA>..XDTA> = 30 DATA WORDS 

* CKS2= CKSUM OF DATA HEX VALUES - 

^ PROCEDURE VERIFIES CKSUMS BEFORE * 

^ STORING DATA IN Z8000 MEM. PACKETS - 

* ARE ACK FOR WITH: '0' = GOOD * 

* ' 7 ' = RESEND - 

- ' 9 ' = ABORT * 

* IF REC '//' FROM MCZ. ECHOS WHAT * 

* REC NEXT TO CONSOLE AND ABORT. 

^ 5{5 



%!««» «JU V# f 

^ ^ ^ ^ ^j% #1% ^ rj«w iT|p ^1% «pp ^1% >1^ I 



ENTRY 



4DE8 

0316 


CLR 


D12D 


CALR 


65E4 

0310 


SET 


Dill 


CALR 


9E06 


RET 

RE CLOP: 


D06D 


CALR 


76E2 

0000 


LDA 


2028 


LDB 


0A08 

2F2F 


CPB 


m0 


JR 


76E1 

0080 


LDA 


2103 

0020 


LD 


BB21 

0310 


LDIR 


76E1 

0080 


LDA 



DWN_ADR(R14) ! SET ENTRY ADR BLOCK ! 

FNAME : CK FILENAME ! 

MFLAGS(F.14) ,#LDMDE ISIGNAL LOAD IN ! 



IPRCGRESS ! 

CMDPAS ! SND CMD TO MCZ ! 

Z ! Z80 PROG NO LOAD ! 



LINRCT ! GST PACKET ! 

R2 ,lNT3UFfR14) 



RL0.GR2 

RL0,#V' ! CK FOR '//' ! 

NZ.CONTIN !NO, CONTINUE...! 

R1 ,OUTBUF(R14) !YES,! 



R3,#%20 



0R1,0R2,R3 lERROR MSG SETUP I 
R1 ,0UTBUF(R14) 



248 



02S? 


'^101 


ADD 


R1 ,f^%20 


0282 


0020 






^284 


6EE1 


LD 


CUTPTR (R14) , R1 !SET OUTPTR ! 


0286 


0306 






0288 


34CA 


LDA 


R10,R12;#FBUFNC ) 


028^ 


0000* 






028C 


1FA0 


CALL 


GR10 


028E 


9E08 


RET 








CONTIM: 




0290 


6755 


BIT 


MFLAGS (R14) ,#ESC ! CK FOR ABORT 


0292 


0310 






0294 


EE34 


JR 


NZ.ABT ! YES , ABORT. . . ! 


0296 


B03A 


CAL? 


CRKPAK f CK CKSUMS ! 


0298 


E^02 


JR 


NC .GDLD . ! GOOD LOAD ! 


229 ^ 


DCB0 


CAL? 


BADPAK ! SEND MON-ACK ! 


029C 


E8E2 


JR 


RECLOP ! TRY AGAIN ! 






! CHECK FOR 


LAST PACKET AND PRINT <ENT ADR> ! 






SDLD: 




029E 


8CE8 


CLRB 


RL3 


02 >0 


8133 


ADD 


P8,R3 ! ACCUM NUMBER BYTES ! 








! OF TRANSFER ! 


02A2 


8C34 


TESTS 


RH3 ! CK COUNT=0 ! 


02A4 


EE28 


JR 


NZ.STOR ! OK, BEGIN STP ! 


02A6 


D0B2 


CALR 


GODPAK ! SEND GOOD ACK ! 


02 »8 


54E0 


LDL 


RR0, INTBUF(R14) 


02 AA 


0000 






02AC 


76SD 


LDA 


R13,0UTBUF'R14) 


02 « E 


0080 






02 B0 


010D 


ADD 




02B2 


000C 










! CHECK FOR 


USER SPECIFIED ADDE 1 


02P4 


0B09 


CP 


R9,#%AAAA 


02B6 


AAAA 






02B8 


E61D 


JE 


Z,SND LOAD ! NO ECHO TO CONS ! 


02BA 


0B0B 


C? 


R11,#%FFFE ! CK FOE LOAD ADP ! 


02EC 


EFEE 






02BE 


E608 


JR 


Z.SAME ADR ! USE MCZ ADR ! 


02C0 


6FED 


LD 


OUTPTRrRl4) ,R13 ! SET OUTEUF ADR 


02C2 


0306 






02 C4 


61E5 


LD 


R5,ADR_STR(R14) ! GST USER ADR ! 


02C6 


0314 






02C8 


76CA 


LDA 


R10,GONVW(R12) 


02CA 


0000* 






02CC 


1FA0 


CALL 


GR10 ! CONVERT TO ASCII AND 



! AND STORE IN 0UT5U7 ! 
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02CE 


S801 


JR 


FIN_BUF 






SAME ADR 




02D0 


1DD0 


LDL 


0R13.RR0 






FIM BUF: 




02D2 


3402 


LD.'F 


R2.ENTADR !LOAD ENTRY LABEL! 


02D4 


0040 






021'6 


76E1 


LDA 


Rl,OUTBUF(R14) 


02D6 


0 ^ Q 0 






02DA 


2100 


LD 


R0 ,#6 


02rC 


0006 






02DE 


T^B21 


LDIR 


0R1,QR2,R0 


02E0 


0010 






02E2 


76ED 


LDA 


R13,0UTBUF(R14 ) 


02E4 


0080 






02E6 


010D 


ADD 


R13,#%10 


02E8 


0010 






02FS 


6FFT) 


LD 


0UTPTR(R14) ,R13 


02EC 


0306 






02EE 


34CA 


LDA 


R10,R12(#?RNTBF) 


02?*^ 


0000’'- 






02E2 


1FA0 


CALL 


GR10 ! PRINT MESSAGE 1 






END LOAD 


; 


02E4 


9F08 


RET 








STOR: 




02E6 


D071 


CALR 


CCNVAD 


02F8 


D0DB 


CALF; 


GODPAK ! SEND ACK ! 


02FA 


D09C 


CALR 


UNPACK ! UNPACK AND STORE 


02FC 


F8B2 


JR 


HECLOP I CONTINUE ! 






ABT: 




02FE 


3402 


LDAR 


R2,EMSG 


0300 


000 A 






0302 


34 C A 


LDA 


R10,R12(#SNDMSG) 


0304 


0000’^ 






0306 


1FA0 


CALL 


0R10 I SEND MESSAGE 1 


0308 


B0E5 


C “LR 


A30RTM ! SEND ABORT ! 


030A 


9E08 


RET 




030C 




END LOADFL 






EMSG : 




030C 


07 


BVAL 


7 


030E 


2F41 


WVAL 


'/k' 


0310 


42 4F 


WVAL 


'30' 


0312 


5254 


WVAL 


'RT ' 


0314 


0D 


BVAL 


%0D 






FNTADR ; 




0316 


454E 


WVAL 


'EN ' 
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0318 


54:52 


^^VAL 


'TR 


031A 


5920 


WVAL 


'V 

1 


031C 


504:? 


'A' ’ .r a L 


'PO 


031E 


494E 


WVAL 


'IN 


7320 


5420 


WV AL 


'T 



END SUPP0RT3A 
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APPiNDIX S - Support Programs 



A. TPXT FILS TRAN'SFSRS 



To transfer test files from the MCZ microcomputer RIO 
system, use the following procedures. 



1. Bootup SASS monitor program as described in Appendix C. 



2. Bootup INTEL '^DS system with CP/M disk having Z8XFER 
program . 



3. Connect cable to MDS system TTY port and to the SASS 
' 3 ' connector (to replace line printer). 



'i. Enter 'transparent' mode of SASS monitor operation to 
operate within the MCZ RIO operating system, by the 
following action: 

TYPE "O <CH,>’’ 

(displays RIO prompt '%') 



5. Setup to transfer text file by: 

TYPE "PRINT <Filename>'' 
(Note: no <CR>) 



6. On the MDS system, execute Z8X7ER program selecting 
text file transfer ('T'). 



7. On SASS (RIO) system, type <CR> to start transfer. 



After the entire file has been displayed on SASS 
terminal, depress any key on MDS terminal to end transfer. 
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Zaef*?/CPM T7.1NSFER MODULE 



Z8XFER: 

PRCCEraRE OPTIOMS (MAIN ) ; 
^INCLUDE 'DIOMOD.DCL'; 
%REPLACE 

TRUE 3Y '1'3, 

BUF3YT BY 8, 

FALSE BY 'd'r; 



DCL 



“NSWER 


CHAR(l) , 


FN 


CHAR (11) VAR 


I 


FIXED, 


WAIT 


BIT(l), 


MEM 


FIXEDdS) , 


MUM3UF 


FIXED(15) , 


REPLY 


CHAP(l), 


CMDBUF 


CHAR (80) VAR 


C 


C HAR ( 1 ) , 


C?CNT 


FIXED(15) , 


TMP 


FIXSDdS) , 


ACCUM 


EXT , 


CHI 


EXT, 


CH2 


EXT, 


PTl 


FIXEDdS) , 


PT2 


FIXEDdS ), 


DEX 


FIXED(15) , 


ODDEVN 


BITd), 


ANSR 


EXT, 


HEXVAL 


EXT, 


C3JXFR 


ENTRY EXT, 


TXTXFR 


ENTRY ext; 



/ V* V# »*« V« *1^ *A* ^Ao oA« «(« »'« V' n'« *'A« «•« 

f if* if* »f* ^1* *f* *f*S^ *f* «|* »jfc *f* »|« «|« «,« »|» «|« #|« *f* ry* «f* Mg'. 9|« «|H *f* 3j5 ^|<* «f« «>j« 



PROGRAM INTERACTIVE HEADER SECTION 



i# / 

% ^1^ 0^ 4^^ 0^ 0\^ r|% #1% r-1% / 



PUT 

PUT 

PUT 

PUT 

PUT 

PUT 



SKIP LIST( 'Z8XFER 
SKIP LIST(' 

SKIP LIST( ' 

SKIP LIST{ ' 

SKIP LIST'v ' 
SKIP(2) LIST( ' 



SASS TO CPi'I ASCII-HEX TRANSFER PROGRAM') 
NOTE: ') ; 

CABLE CONNECTIONS BETWEEN THE'); 

SYSTEMS VARY AS TO TYPE OF'); 

FILS BEING TRA.NSFERSD ') ; 

TYPE <CR> TO CONTINUE..'); 
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/ v^ V^ ^V V^ V^ V^ ^ ^ V^ %*^ ***^ ^v# «*^ 

f ^1% ty^ ^1% ^1^1 #1^ >l« ^1% ^g% #1* #|« ^|« ^|« >1^ 4^% ^|« ^1% ^1% ^1% ^|« '. ■ #|« 4P|% 4T|% #y% ^1% 

* D^:T^?^'I^1E TRANSFER TYPE * 

%*# *J^ %f^ %*# %V »^# %!«%•« «»0 %A 

^1% «Y* ^1“ 



PUT SKI?(2) LISK'IS FILE A TEXT OP. COPE FILE? (T/C)'); 

wait=truf; 

DO WHILE 'WAIT=TRUE); 

CRT LIST ( ANSWER) ; 

IF (ANSWER = 'T') THEN 
CALL txtxfr; 

ELSE 

IF (ANSWER = 'C') THEN 
CALL objxfr; 

ELSE 

PUT SKIP LIST( 'INVALID ENTRY')! 

END! 

END ZeXFER! 
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2. TXTXFR MODULE 



TXTXFR: 

PROC; 

%INCLUDE 'DIOMOD.DCL'; 
^REPLACE 



TRUE 


BY 


'I'B. 


BUFBYT 


BY 


6, 


FALSE 


BY 


'0'b; 



DCL 



ANSWER 


CHAR(l) EXT. 


FN 


CHAR (11) VAR EXT, 


I 


FIXED EXT, 


WAIT 


BIT(l) EXT, 


MEM 


FIXED(15) EXT, 


NUMBUF 


FIXED(15) EXT, 


REPLY 


CHAR(l) EXT, 


CMDBUF 


CH^R{80) VAR EXT, 


C 


CHAR(l) EXT, 


CRCNT 


FIXSDdS) EXT, 


TMP 


FIXED(15) EXT, 


ACCUM 


EXT, 


CHI 


CHAR(l) EXT, 


CH2 


CHAR(l) EXT, 


PTl 


FIXED(15) EXT, 


PT2 


FIXED(15) EXT, 


DEX 


FIXED(15) EXT, 


HEXVAL 


BIT(8) EXT, 


ODDEVN 


BIT(l) EXT, 


RECTTY 


ENTRY ext; 



/- TERMINATE TRANSFER AND SAVE THE FILS -/ 
TEEMIN.4TE: 

PROC f 

NUMBUF = DIVIDE ;mEM,BUFBYT, 15); 

write buffers to disk file -/ 

IF MEM=0 THEN 

do; 

PUT SKIP LIST('N0 data transfered ' ) ; 
CALL DSLETE(ADDR (DESTFILE) ) ; 

CALL REBOOT ( ) ; 

end; 

MEM=0; 

DO 1=0 TO NUMBUF-i; 

C»LL SETDMA(ADDR( MEMORY (MEM) )).* 
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5UFBYT; 

IF '*fRSFO : ADDR(DEST?ILE ,' ) "=0 THEN 

do; 

PUT SKI? LIST('DISK FULL'); 

CALL reboot;); 
end; 

PUT SKI? LIST( 'TRANSFER COMPLETE.'); 

CALL REBOOT ( ); 

end; 



/ 



“i' n* 






•Xr V# *** »•< »v 5*f if* ^ »*< <•** «JU ••'» %».» V' «u «<.• .,*« *v 

'T-n' 'r 'I* *r*%* *x'' ^'1** V 'r»'i» V ^nr* V *T* nr *T‘ n* W *1' n*- nr't* •V'r* ^ *¥* 



TXTXFR: PROCEDURE FOR TRANSFERRING A TEXT - 
FILE FROM S«SS TO CPM VIA A CiSBLE FROM * 

THE SASS '3' CONNECTOR TO THE INTEL TTY - 



❖ 



PORT. CPM WILL INTERCEPT SASS CRT TEXT 
DISPLAY FROM THE MCZ EDITOR. 



^ 

^ip ^1p ^*p ^ 



r^J? 3V 



nr 'I* nr *i' 



i;<;;cs;s y^5;:5;s 



;<«/ 



DCL 

1 DESTFILE BASED(DFC30( ) ) , 

^INCLUDE 'FCB.DCL'; 

DCL MEMORY (0:0) BIT(16) BAS ED ( MEMPTR ( ) ) ; 



y :jc 5jc J^ojc >;s ajc 5jc :Jc a[s =i« 5 



V^r 



* TFILE: PROC TO DETERMINE NAME OF FILE 



:!:#>JCJ!s>>:s!::;csiCJ!s>^J!eXS»;s:;£Sr5!SSr«s;iSr>rS¥S}:5r5r!;=5!S!('!;s5rSr5;s»r5l«5r'i«5r>:sSr5rirSrariS5;s#>^5rSr5;«*Sr# / 



TFILE: 

PROC; 

/« READ FILE NAME -/ 

PUT SKIP LIST('WHAT IS THE FILENAME?'); 

GET LIST(FN ) ; 

/=«' PROCESS OPTIONAL DRIVE PREFIX */ 

I = INDEX(FN, ' : ') ; 

IF 1=0 THEN 

DESTFILE. DRIVE=0 ; 

ELSE 

do; 

DESTFILE .DRIVE=1 ; 

FN = SUBSTR(FN,I+1) ; 

end; 

/* GET FILENAME AND TYPE */ 

I = INDEX(FN, ' . ') ; 

IF 1=0 THEN 

do; 

NO FILE SPECIFIED, USE '.TXT' -/ 
DESTFILE. FNAME = FN ; 

DESTFILE. FTYPE = 'TXT'; 

end; 
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ELSE 



do; 

DESTFILE.FNAI^S 



DESTFILS.FTYPE 



end; 

END tfile; 



SU3STR(?N , 1,1-1 ) ; 
SUBSTF(FN, I+l ) ; 



/* INIT FCB V 
DFSTFILE.FEXT = 0; 

DESTFILE.CREC = 0; 

/’^ OBTAIN FILENAME AND CHECK FOR EXISTING FILE */ 
CALL tfile; 

IF SEARfADDR(DESTFILE)) -1 THEN 

do; 

PUT SKIP LIST( 'DELETE OLD FILE? (Y/N)'); 
GET LIST( ANSWER ) ; 

IF (ANSWER = 'Y') TEEN 

CALL DSLETE(ADDR(DESTFILE) ) ; 

ELSE 

CALL REBOOT ( ) ; 

end; 

/* OPEN NEW FILE "V 
IF MAKE(ADDR(DESTFILE) ) = -1 THEN 

do; 

PUT SKIP LISTl'NO DIRECTORY SPACE'); 

CALL REBOOTO; 

end; 



/* COMPUTE BUFFER SPACE -V 

NUMBUF = DIVIDE(MEMSIZ( ) ,BUFBYT,15) ; 

IF NUMBUF=0 THEN 

do; 

PUT SKIP LISK'NO buffer SPACE'); 
CALL REBOOT( ) ; 

end; 



/# MAIN LOOP CHECKING FOR KB ENTRY OR TTY RECEIVE 
MEM=0; 

wait=true; 

DO WHILE (wait=true); 

IF BREAK () = TRUE THEM 

CALL terminate; 

IF PECTTY = TRUE THEN 

do; 

IF MEM < NUMBUF THEN 

do; 



MEMORY ;mEM) =RDRDR ( ) ; 



-•!«/ 
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+ i; 



MEM = 

END; 

ELSE 

do; 

PUT SKI? LIST('EILE TOO LAPGE' 
CALL REBOOT (); 

end; 

end; 

end; 

end; 

END txtxer; 
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3. OBJXTP 



OIJXFR ; 

PRCc ; 

%INCLUP^ "PIOMOP.^^CL': 
'^REPL/C^ 



TRUE 


^Y 'I'B. 


BUF^YT 


BY 128. 


FALSE 


BY '0'B; 



ECL 



''^!SWFR 


RHAP^l^ FXT, 


FN 


CHAR 'll) VAR FX 


I 


FTXFP FXT, 


WAIT 


RIT(1^ FXT, 


M"5M 


FIXFD'IS) FXT, 


MUR'BUF 


^IXFD'15) FXT, 


RF^LY 


Cr^Rd) FXT. 


C^DPUF 


'1:90) CHAR(l) 


C 


CHAR'D FXT, 


CR 


rwap ( 1 ) , 


CRCNT 


FIXFD'15) FXT, 


TMP 


FlXFPdS) FXT, 


AC CUM 


FXT, 


HFXVAL 


BIT(a) FXT, 


CHI 


CHARfl) FXT, 


CH2 


THAR'l' FXT, 


PTl 


FIX^D'15) FXT. 




FIXFr(15) FXT, 


D^X 


FIXFP(15) FXT. 


ODD^VN 


BIT(l) FXT, 


RFCTTY 


ENTRY FXT, 


ATOHFX 


FNTFY EXT; 
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/ 



nj* 

^ 









%t# %‘^ %v %w %o 

#|> ^ 1 % ^ 1 % tf»|^ # 1 ^ # 1 % 



0PJX7E: P^OCTDU’'? TO TFA,\'S7P’= CODE F?.OM 
73000 f^vjAQDY TO C?^ -ILBS PT USING T^E 
"’FCTPONIX FOPf^'T. CONNECTION IS FROfl 



INT^L TTY ’OPT TO SASS CABLE 'A'. CPM 
ii/ILL ASSU^^E TEE ROLE OF MCZ-RIG SYSTEM. 



5 ;: 3 ;< 5 {ij 



« %•« *•# y * ^ 

^ »('• »,> »i 



'(- 'f» »r -I-* 



• «•« ^ %.** %># V*' «•* 

» »(* #,» # 1 % »^|> 



>:</ 



DCL 












1 FIFILE 


RASED' 


(DFC^0( 


)). 


i:iNC 


LUDV 'FCR.DCL 


I 






DCL 












1 LOFILE 


RASED' 


(DFCRl ( 


)), 


^INC 


LUDT^ 'FCR.DCL 


• 

♦ 






DCL 












FVN3UF ' 


?000) 


RITf 3) 






ODDBUF < 


2000) 


RIT(8) 


t 




RECBUF f 


1:80^ 


CHAR' 


11 . 



FLAG BIT'l); 



''- S»SS TO CPM CODE FILE TPANSFEH 3Y TECT’^ONIX FROMAT -/ 

PUT SP'IP LIST('CP'" WILL ASSUME TEE MCZ-RIO ROLE FOR TRANSFER'); 
PUT SKIP LIST(' SETUP: CONNECT CARLE TO SASS "A" CONNECT-') 

PUT SKIP LISTf' TOR ^md TO INTEL TTY POFT.'),' 

PUT SKIP LTST(' ENTER <CR> WHEN READY...'); 

GET LIST(FFPLY) ; 

CR=' 



^ ^ WU %V ^ ^ %<•» %V ^ ^ Vf ^ 

^1% #1% «»,% #1% #1% #1% ^1% #1% ^4% #1^ #1% ^1% #4% ^4% #1^ #1*^ 

CFIL^: PROCEDURE TO DETERMINE THE ’■• 

FILENAME OF THE OBJECT FILES - 

V^ %*« «V ^1# W WU %V «V V# %*# %<w / 

^4^ ^4» «»4^ ^1% #4^ #1^ ^|-* ^J*» #1^ #4% #4^ r|% #»j% #4^ >|» ^4% ^4^ ^^^4^ #4“^ #|% / 



CFIL^t 

prccepure; 

/’■' ?E«D FILE NAME 

PUT SKIP LI ST ('WHAT IS T^E FILENAME?'): 
GET LIST(FN); 

/* PROCESS OPTIONAL DRIVE PREFIX -/ 

I = INDEXfFN, ': ') ; 

IF 1=0 THEN 

do; 

HIFILE. DRIVE = 0; 

LC^ILE. DRIVE = O: 

end; 

ELSE 

do; 

HI’PILE. DRIVE = 1 ; 
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LOT^iL'5:.rFiv5 = i; 

?N = SUPSTR(FM .1+1) ; 

ent; 

SET FMf'MES *ND FTYP''^') '■'/ 

I = INDFX'FN 
I? "(1-0) TFFM 

FM = SaBS^?.(F'J,l, I-l) ; 
HIFI LF .FNA^'F = 

LOFILF.FNAMF = ; 

HI^ILF.FTY^^ = '0?J'; 
LOFIL'^.FTYPi^ = 'OPJ'; 

PFTURV: 

END cfile; 



u •.*« •.<« ^ 



ECHO: PRCr TC ECHO C.^D LINE 3«CK 
TO 78000 ■‘MONITOR. 



«A# %IU O' 0« «i 

^1% # #1% ^ 



ECFO : 

PROC; 

E C L 

NMPR ^IXFD(8) , , 
EXTRA FIX^D(S) : 

/* I NIT SUFFER PT’" -/ 

NN'S'’=3T 

EXTPA=1 ; 



/* p,-^'T’ c^^D LIME F^OM MONITOR -/ 

W4.tt=true; 

DO WHILE (WAIT=TRUF); 

C = RDRDR ' ) ; 

CMDBUF( MMSR )=r : 

NMBR=N>1SR+1 ; 

/* EC^O BACK */ 

IF (C=CT>) THEM 

DO WHILE ■'SXTRA"=NMBR) : 
C=C^^DBUF EXTRA); 
CALL Wr.PUM(C); 

wait=false; 



ELSE 



end; 

wait=trtje; 



end; 

'“ETURM ; 
END echo: 
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i v^ v^ V^ V^ W^ O^ %*' «i> ^ 

' # 1 ^ # 1 ^ > 1 ^ # 1 ^ # 4 ^ ^v # 1 ^ ^ 1 % «|% ^ 1 ^ # 1 % ^ 1 % #|« ^ 1 % ^ 1 % # 1 % # 1 ^ ^ 1 ^ ^ 1 % # 1 ^ ^ 1 % ^ 1 % ^ 1 % ^ 1 % 0^ 

*:- ^r^'T’PIC: PPOC ""0 GET ONE TECTPONIX ’’• 

- E^^MATEC RECORD. 

^V y# %*f ^ %i# y^ %i^ y^ v# %*^ y^ ^ ^w %i^ y^ y«# y> yu %t# / 

^ 1 *' ^i'* ^ ^ ^i'* ^ 1 ^ ^O •’ 1 ^ / 



GETRSC : 

PRCC; 

CH0NT=i; 

'a A IT = TRUE? 

/'■■' CHECK EO^ RECEIVE C^A- EROIR COM OR TTY -V 
DO WHILE fELAG=TTUE); 

IE 5REAKn=TRUE THEN 

do; 

ELAG=‘P ALSE; 

wait=ealse; 

end; 

IE rECTTY-TRUE THEN 

“' “do;*' 

C=RDRDR ' ) ; 

F^CBUE(C^CNT)=C; 
l'^ C=CR THEN 

flag=ealse; 

C"'CNT=C?CNT-^i; 

end; 

end; /'^ DO while "/ 

return; 

END getrec; 






'* 



DOLAST: PROC TO SEND FINAL ACK 
TO ZSOf’O AND SAVE FILES 



«ju %i# ^lu yu yu y^ y# %iu yu y^ y# yu y^ y# y^ y^ y^ y^ y^ y^ y^ y^ y^ y^ y« y^ y^ y^ y«^ 

^1% <r|» #1% ^|ik #1% #1% #1% #1^ #1^ r|% ^1% #1% 4^1% ^1% ^|« rp 



DOLAST: 

PROC ; 

/* CHECK <CKSUM> FOR DAT& FIELD 
Tf^p^aCCUt^; 

ACCU^1=0; 

CHI = RFC3UF(7); 

CH2 = PFC3UF(8) ; 

CALL ATOHSX; 

IE ''^TN!? = ACCUM) THEN 

do; 

c='7'; 

CALL WRPUN(C); 

return; 

end; 
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/- SilWD ACK '0' CHAR TO ZP000 "V 
CALL WRPUM'C); 

/- SAVR RV^N PRO^ RILR ■HI^'ILE) -/ 

MU.^RUT^ = nVILR'PTl .RUF3YT.15); 

IT ?T1=0 THEN 
DO; 

^U'T’ SKIP LIST('Nr DATA TRAMSFRRRD') 
C^LL DRLRTFf 4DD? 'HIRILE) ); 

CALL DRLRTRf ADDR^LOTILE ) ),' 

CALL REBOOT (); 

fmd; 

?Ti=0; 

DO I = 0 TO NU^BUT-i; 

CaLL SRTDrA( ADDRfRVNBUF^PTl) ) ); 
PT1=PT1 + butbyt; 

1 '^ ’a'RSEO ' ADDRf HITILE) THEN 

do; 

PUT SKIP LIST( 'DISKEULL ' ) ; 
CALL '5EBOOT ' ) ; 

fmd; 

end; 

SA^fR ODD PRO^ FILE (LOPILE) -/ 

NU^^BUF = DT’aDF(PT2,PIJFBYT,15); 

PT2=0; 

BO I = 0 TO MUMBUP-i; 

C^LL SETDMA ( aDDP(0DDBUF^PT2) ) ); 

PT2 = ?T2 + BUFBYT; 

IP WRSRO' aDBR'LCFILE) )'' = 0 THEM 

do; 

PUT SPI? LIST('DISK FULL'); 
CALL PPBOOT ' ) ; 

emd; 

end; 



’aait=false; 

PUT SKIP LIST( 'TRANSFER COA^PLETE . ' ) ; 

return; 

END dclast; 



263 



r- 



% >1% ^1% ^1% ^1% #|« ^1% 4^1** 



- STR'^.EC: PROC ""0 STORE THE RECEIVE? - 

- cvro^? I^' PILE 3UFEEFS. 

^Jc 5j? 5j^ S’Jc 5jC 5jC 5j» 5^ 5j^ 5gC 5j% 5i|^ 5(5 5|5 5j|5 5^5 5|5 5^5 5j5 5|5 5j5 5|5 5^5 5^5 5j5 5fC 5|5 5|C ^ 



STRR’^C : 

PRCC ; 

IE CRCNT=9 THEM 

^ A 7 T ?0T A <^T J 

ELSE IE CPrMT=41 THEM 
CALL dass^m; 

ELSE 

?o; 

C= '7 ' ; 

CALL WR?UM(C); 
EM?; 

R STURM; 

sme; 



r 



Jl# O# « 



DASSEM: 



^ ^V VU ^V 

% 4»|% 4^^ «T|% 4T|^ 1^1% <1% 4^1% #1% 4^(% >1^ ^1% ^1% ^1% #1^ «T(-% 

PROC TO DISASSEMBLE OME RECORD 
AM? store IM proper PUFFER. 



^ '«o ««,• «JU y.. ^ Vr '«V «*« «*>• y# »•< ^ **<• -** ^ 

>1^ -qp* #1% #1^ #>|% 



DASSiM: 

PROC ; 

DEX=--i; 

Accu<^= 0 ; 

PTi-i; 

PT2=i; 

/- OBTAIN <ADDRXCOUNT> CKSUM -■'/ 
DC 1=0 TO 2; 

CHI = F^C^UF(DEX); 

CH2 = RECPUFfDEX+1 ^ ; 

DEX = DFX + 2; 

CALL ATOHFX; 

END; 



/- OBTAIN <CKSUM> «/ 

tmp=accum; 

ACCUM=0; 

CHI = R^CBUE^DEX) ; 

CH2 = RFCBUF(?EX + 1) ; 

DEX = DEX + 2; 

CALL “TOHSX; 

/* COMPARE CKSUMS AMD REPORT ERROR -/ 
II’ '''TMP = ACCUM) T^EN 

do; 
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c= ' 7 ' ; 

rfl.LL w^?UN(c); 
r^cttjrn; 

/- DIS ASSI’t^'^LE 37 -BYTF P^CKaGE A 'ID STORE 
ACCU''* = 0 ; 

DO 1=1 TO 15 ; 

CHI = PEC^UE(DEX) ; 

CH2 = RECEUE'DEX+1 ) : 

DEX = DEX + 2 ; 

CaLL a.TOHEX; 

/- STORE IN PROPER EUEEER -/ 

IE ODD^VN=TRUE THEN 

do; 

evnbue^pti)=hexva.l; 

HEXVAL=0; 

P'"i=PTi-i ; 

oddevn=ealse; 

end; 

ELSE 

do; 

0DD3aE(?T2)=HEXVAL; 
FEXV.aL = 0; 

P-t2=pt2-1 ; 

ODDEVN=TPUE ; 

end; 



/- COMPARE CKSUMS AND REPORT ERRORS -/ 
TMP=aCCUM; 

ACCU'N=0; 

CHI = RECBUE^DEX^ *. 

CH2 = REC3UE(DEX+1^; 

CALL ATOHEX; 

IE ( TMP=ACCUR') T7EN 

do; 

c='?'; 

CALL WRPUM(C); 

retupn; 

end; 

ELSE 

do; 

c='0'; 

CALL WRPUN(C); 

WaiT=E.aLSE; 

return; 

end; 

END d«ssem; 
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/- I NIT ?CE'S ■'- > 
HI7ILT.FTXT = ? 
LoyiL^.FEXT = ;5; 

hi^ile.crec = 0 ; 

LOTILE.CREC = 0; 



/- FILENAME AND CHECK FOR EXISTING FILES */ 

CALL true; 

IF 'SFAF.( o^DF (HTFILE) )" — 1 ! SE A?.( addR : LOF I LE ) ) ''=-1 ) THEN 

do: 

PUT SKIP LIST ('DELETE OLD FILES? (Y/N)'); 

GET LIST^ ANSWER); 

IE ^ANSWER ''= 'Y') THEN 

do; 

C'LL DELETE ( »DDR( HI FILE) ) ; 

CALL DSLETE(ADDR (LOFILE) ) ; 

END? 

ELSE 

CALL REFOOT( ) ; 

end; 



OPEN NEW FILES =^/ 

IE '‘^AKEf ADDR(HIEILE) )=-l ' MAK S ( ADDR ( LOEI LE) ) =-l ) THEN 

do; 

PUT SKIP LIST('nO directory SPACE'); 

CALL REBOOT ( ) : 

end; 



/ ^ ^ yu 

/ ^1* >1^ ^1% #1* <1^ #1% #1% 0 y 



^ 

#1% ^1^ ^1% #1% ^ 



MAIN CODE SEG: LOOK FOR 'E;', ECHO 
ALL B^CK THRU PUN PORT; SEND '9', 

SEND '0'. AND BEGIN STORING-DISASSEM- 
BLING TECTRCNTX FORMAT TO THE TWO 
OBJECT FILES. 



O.A «A# Vi* V# V# V^ V^ V# «A# V# V# V^ V# %A« VU ^ 

^1^ #ip #1^ ^1% #1% ^1^ ^|« 



CDDEYN = true; 
WAIT - true; 



/* WAIT FOR 'B; ' -/ 

DC WHILE 'WAIT=TRUE); 

IF BREAK n = TRTTE THEN 
CALL dolast; 

IF RECTTY = TRUE THEN 
do; 

C=RDRDR ' ) ; 
I^(C='B') THEN 

do; 
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hcj 



C=ED^C^ ' ) ; 

IF <c='; ') TH2N 

> 

CMF3UF'1)='E' 
CMDBUF'2)='; ' 
CALL ECEC; 

■a/ait=falss; 



ELSE 



fmd; 

end;/* do while 



END; 



end; 



waiT=rEUE; 



/- RECEIVE RECORDS AND CONVERT FOR STORAGE "V 

'a'ait=true; 

DO WHILF(WaiT=TKU^) ; 

CALL GETREC; 

CALL STRR^C; 

md; 

ND objxfr; 
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Z3LIB MODULE 



MS ME 'Z8LIB' 

TITLE 'ASM ROUTINE LIB FOR Z^XFER' 

/ ^tm %*^ %w %•> %•# %w y** ^u y^%i^ %t^ %t# «i«» 

#|« #|> ^ 0 % «|% ^ 1 % # 1 ^ #|« «r| « #1 4 ^ 1 ^ #|« gf|% ^ 1 ^ > 1 % # 1 ^ # 1 % <»|^ ^ 1 % # 1 % #|« ^ 1 % iT|^ # 1 % ^|> # 1 % ^ 1 % a>|% ^|% ^|% ^|% ^ 

- DECLARATIONS - 

«*# «V %t# %*^ %u y# %u yu wt^ y^ %*# «i# o# y# u^ «i> «ju <»w %i» %*# «o y# y« y^ y^ y^ %*« wu yu y^ yu ^uy^ y^ y^ y# 

<T|% ^ 1 % # 1 ^ # 1 ^ >| 4 » #»|% ^g« # 1 % ^ 1 % > 1 % ^ ^ ^ ^ 1 % ^ > 1 % # 1 ^ •' 1 % ^ 1 % .r^^ # 1 ^ 1 ^ # 1 % ^ 1 % > 1 ^ ^ 1 % ^ 1 % #>|% ^ ^ 

; RETURNS '1' EOR RFC CHAR 
; CONVERTS TWO ASCII BYTES TO ONE 
; ERROR SIGNAL 

; accumulator for cksum 
;return of hex byte 
;mailbox for pl/i return 

; FIRST ASCII CHAR 
; SECOND ASCII CHAR 

y# y • y« %w yu yu y# «v y^ y« yu y« y^ y« y^ y# y^ y^ y# y^ y^ y^ ^V y^ y^ y^ y^ y^ y# y^ y^ y^ y# y^ y^ yi# y^ y^ y^ y^ y^ y# y# y» «v y« y« « v y# 

✓l% ^ 4 % # 1 % ^ 1 ^ # 1 % rp #p > 1 % #yi ^p ^p 4 ^ > 1 % ^P ^p #* 1 ^ *^w ^p ^p #P #,% #P #p ^P ^P ^P ^p ^P ^P #P ^p ^P #p #P ^p 4 fp #* 1 ^ #p ?p ^p 

* EQUATES - 

7*« )*C '*« ^V 'V 2|« 'Js ^*C *js 3^' 3*C 3V 3*^ '*« 3^ 3*« 3*« 3*« 3*' 3j» '*« 3'c 3*« 3*t 3^ 3*« 3^« 3|« **C 3*( 3*« 3|C ^'C 3*« 3^ 3|« 3*« 3}( 3*' 3*« 3*« 3*> 3jc 



PUBLIC 


p ^ctty 


PUBLIC 


A'^OHEX 


PUBLIC 


POST 


PUBLIC 


ACCUM 


PUBLIC 


HEXVAL 


PUBLIC 


ANSR 


PUBLIC 


fTTl 


PUBLIC 


CH2 



TPORT 


ECU 


0F5H 


;tty (rdr) cmd pot^t addh 


POST 


DB 


1 


; ERROR FLAG FOR Z8XFER FOR BAD CH 


ACCUM 


DB 


2 


; ACCUM VALUE FORR CHECK SUMS 


HFXVAL 


DP 


1 


;RSTURNED HEX BYTE FROM 2-ASCII 


ANSR 


DB 


1 




CHI 


DB 


1 


; PASSED CHAR FROM BUFFERS 


CH2 


DB 


1 


;SAME 


«kW y^ ^4# y# y^ y# y« 

^p >1^ ^p ^p ^p 4^p r^% 




3lt3?i 5 ;: 5!c3;c 3;s5}s 31C5;; 5;: 3 ; 


y# - * - y^ y^ y« y^ y^ y^ y^ y^ y^ y^ y^ y<^ y^ yu y^ y^ y^ y# y^ 

5jc 3p 3it ^ ^ 5|' 5Jt 3^ 5|C 3 ^ -I* *\<* 'o 'i'* <n' n' ' 1 '* 't* »r -»i' ^i* 'i' ^ 'i** *^ 1 ' ^ 'r 'I'-i' 



P^CTTY: ROUTINE TO FAOTLITATF DIRECT * 

=•• I/O STATUS READ TO TTY PORT. * 

3j5 3|C 3|: 3^3{t 5|J 5}S3^C3;C5;: 3^ 5**t3^ 3{J5jC 3j: 3l< 3^C5jC Stc:{t 5iC3{C 3^: SiCS*.? 31? 3;« 3{t Sj? 3}C 5jr 3|t 3|t 5)5 5t« 3?t S;S >{S 3}: S;C 3|S Sji 3;« 3^? 3;C 3,‘S 5*^ Sj? SjC 5{i S^C 5;« 5^ 



aSCTTY : 


AN I 


0 


;CLEAR REG A 




IN 


TPORT 


;reae tty cmd port 




AN I 


01H 


; CHECK EOR RECEIVE 




JZ 


EINI 


;N0 char RECEIVED 




MVI 


SOIH 


;YES, CHAR RECEIVED 


EINI ; 


MOV 


L.A 






MVI 


H.0 


;lcad answer 




SHLD 

RET 


ANSR 


:STORE IN mailbox 
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%*# 



AT OH EX: 



■^f ^'f 5 *i ’•*^ %•# »o «o «i^ 

1^ 'I' *r^ ^1^ ^4% •!% ^p ^p #p #p ^p ^p ^p rp «p 5p #p #p ^Jt ^p 5p 5p 5|C Jp ^C 

^'^OEXI: ROUTINE TC CONVERT TWO ASCII 
CH INTO ONE HEX BYTE. 



DONE: 



» Or Or «*r Or %(# «*r 

• rp ^p rp rp r ^ 


Or %tr «lr Or Or Or «lr %*r 


C4LL 


CONBYT 


CPI 


O^FH 


JZ 


DONE 


NOV 


E.E 


LDA 


CH2 


ST 4 


CHI 


CALL 


CONBYT 


CPI 


0^FH 


JZ 


DONE 


MOV 


C.A 


MOV 


A.S 


R?L 




RAL 




RAL 




PAL 




AMI 


0E0H 


ADD 


C 


ST4 


H^XV4L 


RET 





!“'•' '*'•'»' 'I' *'»*'l 



; CONVERT El PST CHSR 
; FIRST BYTE CONVERT 
JQUIT 

;3TORE FIRST NIBBLE 

;OET SECOND CHAR 
; CON VERT SECOND CHAR 
'.SECOND BYTE CONVERT 
;ouiT 

JTEMP STORE SECOND 

;gst high nibble 



;rot4Te to high nibbli 

;CLR LOW NIBBLE 
JFORr^ HEX BYTE 
; RETURN HEX BYTE 



TO NIBBLE 
ERROR 



TO NIBBLE 
ERROR 



• Jji 5 |J Jjc 5 



% #p ^p #p #p #p ^p #p 



# %•# %v %•# '•'t 

% ^p #p #p 7p 3p ^P ^p #p #p ^p ^p 3p ^P ^P ^P ^P ^p ^P ^p ^p ^p ^p ^p ^p ^p ^P #p i»p 



• Or Of %*# %V O# O^ O# O# %lrO^ O# 0#0#0^ 0^0^%^ %U %*r O^ Or Or OU ^UOrW 

rp rp • rp r|% rp rp rp rp r|% rp rp rp rp rp r|^ rp rp rp rp rp rp ^p ^p ^p rp rp rp rp rp rp 



N r *% r *C rp r^^ r{S r^^ rp r^J r*% r*C 5 *% r^^ r^i 5 ^? r'? r*C r 



. 



CONBYT: 


LD4 


CHI 


;GET ASCII CH«R 




CPI 


30H 


;no char n30H 




JC 


ERR 






CPI 


3 4.H 


;CK IF DIGIT 




JC 


OK 


;YES, is DIGIT 




C^I 


41E 


;CK IF 'A/ or great 




JC 


ERR 






CPI 


4?H 


;CK IF <'F' 




JNC 


E?H 




OK: 


ANI 


0EH 


;need lower nibble 




MOV 


E,A 


;ADD to ACCUMULATOR 




MV I 


D,0 






LHLD 


4.CCUM 






DAD 


T} 


;add new byte 




SHLD 


ACCUM 


;STORS 


ERR : 


RET 







*JL, 

't' 

;Jt :.’c .!s ^ 5 jS 5 |< 5 r ^ 1 ? .Icji 5 ^?Is Jjt stcsjc 5 jC.It ;*t sfc .jojc 5 jC 5 *,C jJcjJcjIs 5 JC 5 jc sjc J}C 3 jC 2 jC 5 jC 5 {C 3 jc;;c 5 jt 5 JC sjcsjc .JcJcJlcsJcJc Jjc 5 jC :jc 5 jC 5 jC 5 jc XC 



END 
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CP^XF?. PPOCt''^ listing 



c . 



1. Z8000 TRAVSFFR '■'ODULE 



ZS000ASM 2.02 

LOG OPJ CODE ST^'T SOURCE STATEMENT 



1 TRANSFER MODULE 
iLISTON iTT? 



rONST’MT 

PORTAD := %FFD9 
PORTAC := %FFD3 
P^OM_SIZ := %1005 

M^M START := %6000 

TXR’ := 0 

Fx^c := '^;0esc 



79 . 7 ? 



$REL 0 
GLOBAL 

TRANS PPOCEDUF.E 



WU *J« 

■T* 'P ^P ^ ^ 'P 'P ^ 



•1^ y# *ju «•.> 
^ »»» *T* 'P 






%W yu «•« 






TR'NS: TRANSFERS OBJECT COPE IN - 

* Z8000 MEMO-Y TO INTEL CP/M * 

* OBJECT FILE ON DISK. * 

>!« 5S 







*i« y* o« *1^ 

'i' 'P^p 'p 'p -p 


%l# O# 

-S'* ^ -S* n'* -I-- 


«•« o.* *1^ *i> yu V' «v> 1 

n-op HP -T* n* T* n'" n* ^ ^ »P '*'• •l* 'P I 






ENTRY 






0000 


2101 


LD 


R1 ,#?RCM_SIZ 


! SET TRANS LIMIT ! 


0002 


1005 








0004 


2102 


LD 


R2 ,#MEM_START 


! SET MEMORY START 


0006 


6000 






1 ADDRESS ! 


0009 


eD38 


CLP. 


R3 





! LOOP SENDING BYTES ! 



DO 



000A 2023 


LDB 


RL0,0R2 


! GET BYTE FROM MEM ! 


000C DFF8 


c »lf 


SNDCH'’ 


! SEND CHAR TO CPM ! 


000E A920 


INC 


R2,i*l 


! ADVANCE ADR 1 BYTE ! 


0010 A 930 


INC 


^3,#1 


! INCREMENT COUNTER ! 


0012 8B13 


C? 


'’3, PI 


: DONE? ! 


0014 F601 


JR 


Z.FINI 


! YES, DONE ! 


0016 ESF9 


OD 







FINI : 
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2101 


LD 


PI ,, ‘/EXEC 


001 A 


005^0 








1E13 


JP 


f5Rl 


001E 




END TR/'NS 




001E 




SNDCHR PROCEDURE 

1 *•» •/> aA* *A* »»> •.*» •.»> «V ^ %*» «.*» V** '>•* *•» 

f ^ "O'* 'f* *' 1 ' *TT* '■*■' 'I'* '•)* ‘O’* *f* 'I** '•|'* * 1 * 'v' ‘'I* ‘O'* ' 1 ^ ‘O'* ^ •nr* •o'* 'i^ *t** 'i' ^»** •o^ 'i** 






•Ar 

•O' 

- .SNDCHP-: 


SENDS SINGLE BYTE TO INTEL - 






<JU 

•O' 

mi* 

Of 


C?/^ apTER STATUS CHECK. « 




- 


«l« 

^1^ #,■ 
ENTRY 


«o %*^ 1 

#1% #1% #1^ #1^ #|> >1* ^1^ ^1% ^1^ ^1^ 1 


001E 


3A04 


INP 


RH0,POF.TAC 1 GET STATUS ! 


0020 


EFDB 






0 022 


a Qoa 


BIT^ 


RH0,#TXR ! CK IF TRANSMIT 


0024 


F6TC 


JR 


Z.SNDCHF 


0026 


3A86 


CUTE 


^CRTAD,RL0 ! SEND BYTE ! 


0023 


FED9 






002A 


9F08 


prT 




002C 




END SNDCHR 





END T?*NSEEF 



2) errors 

Assembly complete 
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